home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / linkkit / clisp.h next >
Encoding:
C/C++ Source or Header  |  1996-07-22  |  65.1 KB  |  2,476 lines
  1. #ifndef _CLISP_H
  2. #define _CLISP_H
  3.  
  4. #define UNIXCONF
  5. #ifndef _ALL_SOURCE
  6. #undef _ALL_SOURCE
  7. #endif
  8. #ifndef _POSIX_SOURCE
  9. #undef _POSIX_SOURCE
  10. #endif
  11. #ifndef _POSIX_SOURCE
  12. #undef _POSIX_SOURCE
  13. #endif
  14. #ifndef _POSIX_1_SOURCE
  15. #undef _POSIX_1_SOURCE
  16. #endif
  17. #undef _MINIX
  18. #undef UNIX_USE_KSH
  19. #undef UNIX_BROKEN_SH
  20. #undef const
  21. #undef inline
  22. #define __nowarn__ 
  23. #undef void
  24. #define return_void return
  25. #define HAVE_LONGLONG 1
  26. #define STDC_HEADERS 1
  27. #define HAVE_STDLIB_H 1
  28. #define HAVE_OFFSETOF 1
  29. #define HAVE_LOCALE_H 1
  30. #define HAVE_UNISTD_H 1
  31. #undef NEED_SYS_FILE_H
  32. #define DIRENT 1   /* use <dirent.h> */
  33. #undef DIRENT_WITHOUT_NAMLEN
  34. #undef SYSNDIR  /* use <sys/ndir.h> */
  35. #undef SYSDIR   /* use <sys/dir.h> */
  36. #undef NDIR     /* use <ndir.h> */
  37. #undef VOID_CLOSEDIR
  38. #define HAVE_SYS_UTSNAME_H 1
  39. #define HAVE_NETDB_H 1
  40. #define HAVE_TERMIOS_H 1
  41. #define HAVE_TCGETATTR 1
  42. #define HAVE_TCSAFLUSH 1
  43. #undef NEED_SYS_PTEM_H
  44. #define HAVE_TERMIO_H 1
  45. #define HAVE_SYS_TERMIO_H 1
  46. #undef HAVE_SGTTY_H
  47. #define HAVE_X11 1
  48. #ifndef size_t
  49. #undef size_t
  50. #endif
  51. #ifndef pid_t
  52. #undef pid_t
  53. #endif
  54. #ifndef uid_t
  55. #undef uid_t
  56. #endif
  57. #ifndef off_t
  58. #undef off_t
  59. #endif
  60. #define CADDR_T caddr_t
  61. #define CLOCK_T clock_t
  62. #define TM_IN_SYS_TIME 1
  63. #define RETSTRLENTYPE size_t
  64. #define STRLEN_CONST const
  65. #define HAVE_MEMSET 1
  66. #define RETMALLOCTYPE void*
  67. #define MALLOC_SIZE_T unsigned int
  68. #define RETFREETYPE void
  69. #define HAVE_ALLOCA_H 1
  70. #undef NO_ALLOCA
  71. #define HAVE__JMP 1
  72. #undef LONGJMP_RETURNS
  73. #define RETSIGTYPE void
  74. #undef SIGNALBLOCK_SYSV
  75. #define SIGNALBLOCK_POSIX 1
  76. #define SIGNALBLOCK_BSD 1
  77. #define SIGPROCMASK_CONST 
  78. #define SIGNAL_NEED_REINSTALL 1
  79. #undef SIGNAL_NEED_UNBLOCK
  80. #undef SIGNAL_NEED_UNBLOCK_OTHERS
  81. #define HAVE_SIGACTION 1
  82. #undef SIGACTION_NEED_REINSTALL
  83. #define SIGACTION_NEED_UNBLOCK 1
  84. #define HAVE_SIGINTERRUPT 1
  85. #undef HAVE_SIGVEC
  86. #define RETABORTTYPE void
  87. #define ABORT_VOLATILE 
  88. #define SYS_ERRLIST_CONST 
  89. #define GETENV_CONST const
  90. #define SETLOCALE_CONST const
  91. #undef HAVE_VFORK_H
  92. #undef vfork
  93. #define RETVFORKTYPE pid_t
  94. #define HAVE_SETSID 1
  95. #define HAVE_SETPGID 1
  96. #define EXECV_CONST const
  97. #define EXECV1_CONST 
  98. #define EXECV2_CONST const
  99. #define EXECL_DOTS 1
  100. #define EXECL_CONST const
  101. #define HAVE_WAITPID 1
  102. #define PID_T pid_t
  103. #undef HAVE_SYS_WAIT_H
  104. #define HAVE_SYS_RESOURCE_H 1
  105. #define HAVE_GETRUSAGE 1
  106. #define HAVE_SYS_TIMES_H 1
  107. #define HAVE_GETWD 1
  108. #undef GETCWD_SIZE_T
  109. #define CHDIR_CONST const
  110. #define MKDIR_CONST const
  111. #define MODE_T mode_t
  112. #define RMDIR_CONST const
  113. #undef STAT_MACROS_BROKEN
  114. #define STAT_CONST const
  115. #define HAVE_LSTAT 1
  116. #define LSTAT_CONST const
  117. #define HAVE_READLINK 1
  118. #define READLINK_CONST const
  119. #define READLINK_BUF_T char*
  120. #define READLINK_SIZE_T size_t
  121. #define ELOOP_VALUE ELOOP
  122. #define OPENDIR_CONST const
  123. #define OPEN_CONST const
  124. #define OPEN_DOTS 1
  125. #define RETRWTYPE int
  126. #define RW_BUF_T void*
  127. #define RW_SIZE_T size_t
  128. #define WRITE_CONST const
  129. #define HAVE_RENAME 1
  130. #define RENAME_CONST const
  131. #define UNLINK_CONST const
  132. #define HAVE_FSYNC 1
  133. #define IOCTL_REQUEST_T int
  134. #define IOCTL_DOTS 1
  135. #define HAVE_FIONREAD 1
  136. #undef NEED_SYS_FILIO_H
  137. #undef NEED_SYS_IOCTL_H
  138. #define HAVE_RELIABLE_FIONREAD 1
  139. #define FCNTL_DOTS 1
  140. #define HAVE_SELECT 1
  141. #undef HAVE_SYS_SELECT_H
  142. #define SELECT_WIDTH_T int
  143. #define SELECT_SET_T fd_set
  144. #define SELECT_CONST 
  145. #undef HAVE_POLL
  146. #undef HAVE_UALARM
  147. #define HAVE_SETITIMER 1
  148. #define SETITIMER_CONST const
  149. #define HAVE_USLEEP 1
  150. #define LOCALTIME_CONST const
  151. #define HAVE_GETTIMEOFDAY 1
  152. #undef GETTIMEOFDAY_DOTS
  153. #define HAVE_FTIME 1
  154. #undef HAVE_TIMES_CLOCK
  155. #define GETPWNAM_CONST const
  156. #define GETPWUID_UID_T uid_t
  157. #define HAVE_GETHOSTNAME 1
  158. #define GETHOSTNAME_SIZE_T size_t
  159. #define HAVE_GETHOSTBYNAME 1
  160. #define GETHOSTBYNAME_CONST const
  161. #define CONNECT_NAME_T struct sockaddr *
  162. #define CONNECT_CONST 
  163. #define HAVE_SYS_UN_H 1
  164. #undef HAVE_SOCKADDR_UN_LEN
  165. #define HAVE_NETINET_IN_H 1
  166. #define HAVE_ARPA_INET_H 1
  167. #define RET_INET_ADDR_TYPE unsigned long
  168. #define INET_ADDR_SUFFIX 
  169. #define INET_ADDR_CONST const
  170. #define HAVE_NETINET_TCP_H 1
  171. #define CODE_ADDRESS_RANGE 0x08000000UL
  172. #define MALLOC_ADDRESS_RANGE 0x08000000UL
  173. #define SHLIB_ADDRESS_RANGE 0x08000000UL
  174. #define HAVE_GETPAGESIZE 1
  175. #define RETGETPAGESIZETYPE size_t
  176. #undef HAVE_VADVISE
  177. #undef HAVE_MACH_VM
  178. #define HAVE_MMAP 1
  179. #define RETMMAPTYPE caddr_t
  180. #define MMAP_ADDR_T caddr_t
  181. #define MMAP_SIZE_T size_t
  182. #define HAVE_MMAP_ANON 1
  183. #define HAVE_MMAP_ANONYMOUS 1
  184. #define HAVE_MMAP_DEVZERO 1
  185. #undef HAVE_MMAP_DEVZERO_SUN4_29
  186. #define HAVE_MUNMAP 1
  187. #undef HAVE_MSYNC
  188. #define HAVE_MPROTECT 1
  189. #define HAVE_WORKING_MPROTECT 1
  190. #define MPROTECT_CONST 
  191. #define SHMGET_SIZE_T int
  192. #define RETSHMATTYPE char*
  193. #define SHMAT_CONST 
  194. #undef SHMCTL_DOTS
  195. #define HAVE_SHM 1
  196. #define HAVE_SYS_SYSMACROS_H 1
  197. #define SHM_RMID_VALID 1
  198. #define VALID_FILENAME_CHAR (ch >= 1) && (ch != 47)
  199. #ifndef __CHAR_UNSIGNED__
  200. #undef __CHAR_UNSIGNED__
  201. #endif
  202. #ifdef __cplusplus
  203. #define BEGIN_DECLS  extern "C" {
  204. #define END_DECLS    }
  205. #else
  206. #define BEGIN_DECLS
  207. #define END_DECLS
  208. #endif
  209. #define CONCAT_(xxx,yyy)  xxx##yyy
  210. #define CONCAT3_(aaa,bbb,ccc)  aaa##bbb##ccc
  211. #define CONCAT(xxx,yyy)  CONCAT_(xxx,yyy)
  212. #define CONCAT3(aaa,bbb,ccc)  CONCAT3_(aaa,bbb,ccc)
  213. #define STRING(token) #token
  214. #define STRINGIFY(token) STRING(token)
  215. #define global
  216. #define nonreturning  __volatile__
  217. #define maygc
  218. #define _ARGS(x) x
  219. #define nonreturning_function(storclass,funname,arguments)  \
  220.   typedef void CONCAT3(funname,_function_,__LINE__) arguments; \
  221.   storclass nonreturning CONCAT3(funname,_function_,__LINE__) funname
  222. #define var
  223. typedef char         BYTE;
  224. typedef unsigned char  UBYTE;
  225. typedef short          WORD;
  226. typedef unsigned short UWORD;
  227. typedef long           LONG;
  228. typedef unsigned long  ULONG;
  229. typedef long long           LONGLONG;
  230. typedef unsigned long long  ULONGLONG;
  231. #define TRUE   1
  232. #define FALSE  0
  233. typedef unsigned int  boolean;
  234. #undef NULL
  235. #define NULL  ((void*) 0L)
  236. #define unspecified 0
  237. #define pointerplus(pointer,offset)  ((UBYTE*)(pointer)+(offset))
  238. #define bit(n)  (1L<<(n))
  239. #define bit_test(x,n)  ((x) & bit(n))
  240. typedef UBYTE   uint1;
  241. typedef BYTE    sint1;
  242. typedef UBYTE   uint2;
  243. typedef BYTE    sint2;
  244. typedef UBYTE   uint3;
  245. typedef BYTE    sint3;
  246. typedef UBYTE   uint4;
  247. typedef BYTE    sint4;
  248. typedef UBYTE   uint5;
  249. typedef BYTE    sint5;
  250. typedef UBYTE   uint6;
  251. typedef BYTE    sint6;
  252. typedef UBYTE   uint7;
  253. typedef BYTE    sint7;
  254. typedef UBYTE   uint8;
  255. typedef BYTE    sint8;
  256. typedef UWORD   uint9;
  257. typedef WORD    sint9;
  258. typedef UWORD   uint10;
  259. typedef WORD    sint10;
  260. typedef UWORD   uint11;
  261. typedef WORD    sint11;
  262. typedef UWORD   uint12;
  263. typedef WORD    sint12;
  264. typedef UWORD   uint13;
  265. typedef WORD    sint13;
  266. typedef UWORD   uint14;
  267. typedef WORD    sint14;
  268. typedef UWORD   uint15;
  269. typedef WORD    sint15;
  270. typedef UWORD   uint16;
  271. typedef WORD    sint16;
  272. typedef ULONG   uint17;
  273. typedef LONG    sint17;
  274. typedef ULONG   uint18;
  275. typedef LONG    sint18;
  276. typedef ULONG   uint19;
  277. typedef LONG    sint19;
  278. typedef ULONG   uint20;
  279. typedef LONG    sint20;
  280. typedef ULONG   uint21;
  281. typedef LONG    sint21;
  282. typedef ULONG   uint22;
  283. typedef LONG    sint22;
  284. typedef ULONG   uint23;
  285. typedef LONG    sint23;
  286. typedef ULONG   uint24;
  287. typedef LONG    sint24;
  288. typedef ULONG   uint25;
  289. typedef LONG    sint25;
  290. typedef ULONG   uint26;
  291. typedef LONG    sint26;
  292. typedef ULONG   uint27;
  293. typedef LONG    sint27;
  294. typedef ULONG   uint28;
  295. typedef LONG    sint28;
  296. typedef ULONG   uint29;
  297. typedef LONG    sint29;
  298. typedef ULONG   uint30;
  299. typedef LONG    sint30;
  300. typedef ULONG   uint31;
  301. typedef LONG    sint31;
  302. typedef ULONG   uint32;
  303. typedef LONG    sint32;
  304. typedef ULONGLONG  uint33;
  305. typedef LONGLONG   sint33;
  306. typedef ULONGLONG  uint48;
  307. typedef LONGLONG   sint48;
  308. typedef ULONGLONG  uint64;
  309. typedef LONGLONG   sint64;
  310. typedef uint8 uintB;
  311. typedef uint16 uintW;
  312. typedef sint32 sintL;
  313. typedef uint32 uintL;
  314. typedef sint32 sintP;
  315. typedef uint32 uintWL;
  316. typedef uint32 uintBWL;
  317. #define uintC uintWL
  318. typedef uint32 uintD;
  319. typedef  void *  object;
  320. typedef  uintL  oint;
  321. #define as_oint(expr)  (oint)(expr)
  322. #define as_object(o)  (object)(o)
  323. typedef uint8 tint;
  324. typedef uint24 aint;
  325. #define objectplus(obj,offset)  ((object)pointerplus(obj,offset))
  326. #define wbit_test  bit_test
  327. #define typecode(expr)  ((tint)(as_oint(expr) >> 24UL) & 0xF7UL)
  328. #define type_untype_object(type,address)  as_object(pointerplus((address),(oint)(tint)(type)<<24))
  329. #define type_data_object(type,data)  (as_object(((oint)(tint)(type) << 24) + (oint)(aint)(data)))
  330. #define upointer  untype
  331. #define type_pointer_object(type,address)  type_untype_object(type,address)
  332. #define type_constpointer_object(type,address)  type_pointer_object(type,address)
  333. #define type_zero_oint(type)  ((oint)(tint)(type) << 24)
  334. #define VAROBJECT_HEADER  object GCself;
  335. typedef struct { VAROBJECT_HEADER object symvalue; object symfunction; object proplist; object pname; object homepackage; } symbol_;
  336. typedef uint16 cint;
  337. #define int_char(int_from_int_char)  type_data_object(21,(aint)(cint)(int_from_int_char))
  338. #define char_int(char_from_char_int)  ((cint)as_oint(char_from_char_int))
  339. #define code_char(code_from_code_char)  int_char((cint)(code_from_code_char))
  340. #define char_code(char_from_char_code)  ((uintB)(char_int(char_from_char_code)))
  341. #define fixnum(x)  type_data_object(32,x)
  342. #define posfixnum_to_L(obj)  ((uintL)((as_oint(obj)&0xFFFFFFUL)>>0UL))
  343. #define fixnum_to_L(obj)  (((sintL)as_oint(obj) << 7) >> 7)
  344. typedef struct { VAROBJECT_HEADER uintC length; uintD data[unspecified]; } bignum_;
  345. typedef bignum_ *  Bignum;
  346. typedef uint32 ffloat;
  347. typedef union { ffloat eksplicit; } ffloatjanus;
  348. typedef struct {uint32 mlo,semhi;} dfloat;
  349. typedef union { dfloat eksplicit; } dfloatjanus;
  350. typedef void Values;
  351. typedef Values (*lisp_function)();
  352. typedef struct { lisp_function function; object name; object keywords; uintW argtype; uintW req_anz; uintW opt_anz; uintB rest_flag; uintB key_flag; uintW key_anz; } subr_;
  353. typedef enum { subr_norest, subr_rest } subr_rest_;
  354. typedef enum { subr_nokey, subr_key, subr_key_allow } subr_key_;
  355. #define pointable(obj)  ((void*)as_oint(obj))
  356. #define TheBignum(obj)  ((Bignum)(((void*)(aint)as_oint(obj))))
  357. #define eq(obj1,obj2)  ((obj1) == (obj2))
  358. #define nullp(obj)  (eq(obj,NIL))
  359. #define posfixnump(obj)  (typecode(obj) == 32)
  360. #define positivep(obj)  (!wbit_test(as_oint(obj),24))
  361. #define uint8_p(obj)  ((as_oint(obj) & ~0xFFUL) == 0x20000000UL)
  362. #define sint8_p(obj)  (((as_oint(obj) ^ (positivep(obj) ? 0 : 0x1FFFFFFUL)) & ~0x7FUL) == 0x20000000UL)
  363. #define uint16_p(obj)  ((as_oint(obj) & ~0xFFFFUL) == 0x20000000UL)
  364. #define sint16_p(obj)  (((as_oint(obj) ^ (positivep(obj) ? 0 : 0x1FFFFFFUL)) & ~0x7FFFUL) == 0x20000000UL)
  365. #define uint32_p(obj)  ((typecode(obj)==32) || ((typecode(obj)==36) && (TheBignum(obj)->length <= 2UL) && ((TheBignum(obj)->length < 2UL) || (TheBignum(obj)->data[0] < (uintD)bit(0UL)) )))
  366. #define sint32_p(obj)  (((typecode(obj) & ~1) == 32) || (((typecode(obj) & ~1) == 36) && (TheBignum(obj)->length <= 1UL) && ((TheBignum(obj)->length < 1UL) || ((TheBignum(obj)->data[0] ^ (positivep(obj) ? (uintD)0 : ~(uintD)0)) < (uintD)bit(31UL)) )))
  367. #define uint64_p(obj)  ((typecode(obj)==32) || ((typecode(obj)==36) && (TheBignum(obj)->length <= 3UL) && ((TheBignum(obj)->length < 3UL) || (TheBignum(obj)->data[0] < (uintD)bit(0UL)) )))
  368. #define sint64_p(obj)  (((typecode(obj) & ~1) == 32) || (((typecode(obj) & ~1) == 36) && (TheBignum(obj)->length <= 2UL) && ((TheBignum(obj)->length < 2UL) || ((TheBignum(obj)->data[0] ^ (positivep(obj) ? (uintD)0 : ~(uintD)0)) < (uintD)bit(31UL)) )))
  369. #define SP()  ({var aint __SP; __asm__ __volatile__ ("movl %esp,%0" : "=g" (__SP) : ); __SP; })
  370. extern object* STACK;
  371. #define begin_call()
  372. #define end_call()
  373. #define begin_callback()  end_call()
  374. #define end_callback()  begin_call()
  375. extern object asciz_to_string _ARGS((const char * asciz));
  376. extern struct subr_tab_ {
  377.   subr_ D_funtabref;
  378.   subr_ D_subr_info;
  379.   subr_ D_copy_simple_vector;
  380.   subr_ D_vector;
  381.   subr_ D_aref;
  382.   subr_ D_store;
  383.   subr_ D_svref;
  384.   subr_ D_svstore;
  385.   subr_ D_psvstore;
  386.   subr_ D_row_major_aref;
  387.   subr_ D_row_major_store;
  388.   subr_ D_array_element_type;
  389.   subr_ D_array_rank;
  390.   subr_ D_array_dimension;
  391.   subr_ D_array_dimensions;
  392.   subr_ D_array_total_size;
  393.   subr_ D_array_in_bounds_p;
  394.   subr_ D_array_row_major_index;
  395.   subr_ D_adjustable_array_p;
  396.   subr_ D_bit;
  397.   subr_ D_sbit;
  398.   subr_ D_bit_and;
  399.   subr_ D_bit_ior;
  400.   subr_ D_bit_xor;
  401.   subr_ D_bit_eqv;
  402.   subr_ D_bit_nand;
  403.   subr_ D_bit_nor;
  404.   subr_ D_bit_andc1;
  405.   subr_ D_bit_andc2;
  406.   subr_ D_bit_orc1;
  407.   subr_ D_bit_orc2;
  408.   subr_ D_bit_not;
  409.   subr_ D_array_has_fill_pointer_p;
  410.   subr_ D_fill_pointer;
  411.   subr_ D_set_fill_pointer;
  412.   subr_ D_vector_push;
  413.   subr_ D_vector_pop;
  414.   subr_ D_vector_push_extend;
  415.   subr_ D_initial_contents_aux;
  416.   subr_ D_make_array;
  417.   subr_ D_adjust_array;
  418.   subr_ D_vector_init;
  419.   subr_ D_vector_upd;
  420.   subr_ D_vector_endtest;
  421.   subr_ D_vector_fe_init;
  422.   subr_ D_vector_fe_upd;
  423.   subr_ D_vector_fe_endtest;
  424.   subr_ D_vector_length;
  425.   subr_ D_vector_init_start;
  426.   subr_ D_vector_fe_init_end;
  427.   subr_ D_make_bit_vector;
  428.   subr_ D_standard_char_p;
  429.   subr_ D_graphic_char_p;
  430.   subr_ D_string_char_p;
  431.   subr_ D_alpha_char_p;
  432.   subr_ D_upper_case_p;
  433.   subr_ D_lower_case_p;
  434.   subr_ D_both_case_p;
  435.   subr_ D_digit_char_p;
  436.   subr_ D_alphanumericp;
  437.   subr_ D_char_gleich;
  438.   subr_ D_char_ungleich;
  439.   subr_ D_char_kleiner;
  440.   subr_ D_char_groesser;
  441.   subr_ D_char_klgleich;
  442.   subr_ D_char_grgleich;
  443.   subr_ D_char_equal;
  444.   subr_ D_char_not_equal;
  445.   subr_ D_char_lessp;
  446.   subr_ D_char_greaterp;
  447.   subr_ D_char_not_greaterp;
  448.   subr_ D_char_not_lessp;
  449.   subr_ D_char_code;
  450.   subr_ D_char_bits;
  451.   subr_ D_char_font;
  452.   subr_ D_code_char;
  453.   subr_ D_make_char;
  454.   subr_ D_character;
  455.   subr_ D_char_upcase;
  456.   subr_ D_char_downcase;
  457.   subr_ D_digit_char;
  458.   subr_ D_char_int;
  459.   subr_ D_int_char;
  460.   subr_ D_char_name;
  461.   subr_ D_char_bit;
  462.   subr_ D_set_char_bit;
  463.   subr_ D_char;
  464.   subr_ D_schar;
  465.   subr_ D_store_char;
  466.   subr_ D_store_schar;
  467.   subr_ D_string_gleich;
  468.   subr_ D_string_ungleich;
  469.   subr_ D_string_kleiner;
  470.   subr_ D_string_groesser;
  471.   subr_ D_string_klgleich;
  472.   subr_ D_string_grgleich;
  473.   subr_ D_string_equal;
  474.   subr_ D_string_not_equal;
  475.   subr_ D_string_lessp;
  476.   subr_ D_string_greaterp;
  477.   subr_ D_string_not_greaterp;
  478.   subr_ D_string_not_lessp;
  479.   subr_ D_search_string_gleich;
  480.   subr_ D_search_string_equal;
  481.   subr_ D_make_string;
  482.   subr_ D_string_both_trim;
  483.   subr_ D_nstring_upcase;
  484.   subr_ D_string_upcase;
  485.   subr_ D_nstring_downcase;
  486.   subr_ D_string_downcase;
  487.   subr_ D_nstring_capitalize;
  488.   subr_ D_string_capitalize;
  489.   subr_ D_string;
  490.   subr_ D_name_char;
  491.   subr_ D_substring;
  492.   subr_ D_string_concat;
  493.   subr_ D_exit;
  494.   subr_ D_psymbol_value;
  495.   subr_ D_symbol_value;
  496.   subr_ D_symbol_function;
  497.   subr_ D_fdefinition;
  498.   subr_ D_boundp;
  499.   subr_ D_fboundp;
  500.   subr_ D_special_form_p;
  501.   subr_ D_set;
  502.   subr_ D_makunbound;
  503.   subr_ D_fmakunbound;
  504.   subr_ D_apply;
  505.   subr_ D_pfuncall;
  506.   subr_ D_funcall;
  507.   subr_ D_mapcar;
  508.   subr_ D_maplist;
  509.   subr_ D_mapc;
  510.   subr_ D_mapl;
  511.   subr_ D_mapcan;
  512.   subr_ D_mapcon;
  513.   subr_ D_values;
  514.   subr_ D_values_list;
  515.   subr_ D_driver;
  516.   subr_ D_unwind_to_driver;
  517.   subr_ D_macro_function;
  518.   subr_ D_macroexpand;
  519.   subr_ D_macroexpand_1;
  520.   subr_ D_proclaim;
  521.   subr_ D_eval;
  522.   subr_ D_evalhook;
  523.   subr_ D_applyhook;
  524.   subr_ D_constantp;
  525.   subr_ D_function_name_p;
  526.   subr_ D_parse_body;
  527.   subr_ D_keyword_test;
  528.   subr_ D_read_form;
  529.   subr_ D_read_eval_print;
  530.   subr_ D_load;
  531.   subr_ D_frame_up_1;
  532.   subr_ D_frame_up;
  533.   subr_ D_frame_down_1;
  534.   subr_ D_frame_down;
  535.   subr_ D_the_frame;
  536.   subr_ D_same_env_as;
  537.   subr_ D_eval_at;
  538.   subr_ D_eval_frame_p;
  539.   subr_ D_driver_frame_p;
  540.   subr_ D_trap_eval_frame;
  541.   subr_ D_redo_eval_frame;
  542.   subr_ D_return_from_eval_frame;
  543.   subr_ D_describe_frame;
  544.   subr_ D_show_stack;
  545.   subr_ D_debug;
  546.   subr_ D_room;
  547.   subr_ D_gc;
  548.   subr_ D_error;
  549.   subr_ D_defclcs;
  550.   subr_ D_error_of_type;
  551.   subr_ D_invoke_debugger;
  552.   subr_ D_clcs_signal;
  553.   subr_ D_make_hash_table;
  554.   subr_ D_gethash;
  555.   subr_ D_puthash;
  556.   subr_ D_remhash;
  557.   subr_ D_maphash;
  558.   subr_ D_clrhash;
  559.   subr_ D_hash_table_count;
  560.   subr_ D_hash_table_rehash_size;
  561.   subr_ D_hash_table_rehash_threshold;
  562.   subr_ D_hash_table_size;
  563.   subr_ D_hash_table_test;
  564.   subr_ D_hash_table_iterator;
  565.   subr_ D_hash_table_iterate;
  566.   subr_ D_class_gethash;
  567.   subr_ D_class_tuple_gethash;
  568.   subr_ D_sxhash;
  569.   subr_ D_copy_readtable;
  570.   subr_ D_set_syntax_from_char;
  571.   subr_ D_set_macro_character;
  572.   subr_ D_get_macro_character;
  573.   subr_ D_make_dispatch_macro_character;
  574.   subr_ D_set_dispatch_macro_character;
  575.   subr_ D_get_dispatch_macro_character;
  576.   subr_ D_readtable_case;
  577.   subr_ D_set_readtable_case;
  578.   subr_ D_lpar_reader;
  579.   subr_ D_rpar_reader;
  580.   subr_ D_string_reader;
  581.   subr_ D_quote_reader;
  582.   subr_ D_line_comment_reader;
  583.   subr_ D_function_reader;
  584.   subr_ D_comment_reader;
  585.   subr_ D_char_reader;
  586.   subr_ D_binary_reader;
  587.   subr_ D_octal_reader;
  588.   subr_ D_hexadecimal_reader;
  589.   subr_ D_radix_reader;
  590.   subr_ D_complex_reader;
  591.   subr_ D_uninterned_reader;
  592.   subr_ D_bit_vector_reader;
  593.   subr_ D_vector_reader;
  594.   subr_ D_array_reader;
  595.   subr_ D_read_eval_reader;
  596.   subr_ D_load_eval_reader;
  597.   subr_ D_label_definition_reader;
  598.   subr_ D_label_reference_reader;
  599.   subr_ D_not_readable_reader;
  600.   subr_ D_syntax_error_reader;
  601.   subr_ D_feature_reader;
  602.   subr_ D_not_feature_reader;
  603.   subr_ D_structure_reader;
  604.   subr_ D_closure_reader;
  605.   subr_ D_pathname_reader;
  606.   subr_ D_read;
  607.   subr_ D_read_preserving_whitespace;
  608.   subr_ D_read_delimited_list;
  609.   subr_ D_read_line;
  610.   subr_ D_read_char;
  611.   subr_ D_unread_char;
  612.   subr_ D_peek_char;
  613.   subr_ D_listen;
  614.   subr_ D_read_char_no_hang;
  615.   subr_ D_clear_input;
  616.   subr_ D_read_from_string;
  617.   subr_ D_parse_integer;
  618.   subr_ D_write;
  619.   subr_ D_prin1;
  620.   subr_ D_print;
  621.   subr_ D_pprint;
  622.   subr_ D_princ;
  623.   subr_ D_write_to_string;
  624.   subr_ D_prin1_to_string;
  625.   subr_ D_princ_to_string;
  626.   subr_ D_write_char;
  627.   subr_ D_write_string;
  628.   subr_ D_write_line;
  629.   subr_ D_terpri;
  630.   subr_ D_fresh_line;
  631.   subr_ D_finish_output;
  632.   subr_ D_force_output;
  633.   subr_ D_clear_output;
  634.   subr_ D_write_unreadable;
  635.   subr_ D_line_position;
  636.   subr_ D_car;
  637.   subr_ D_cdr;
  638.   subr_ D_caar;
  639.   subr_ D_cadr;
  640.   subr_ D_cdar;
  641.   subr_ D_cddr;
  642.   subr_ D_caaar;
  643.   subr_ D_caadr;
  644.   subr_ D_cadar;
  645.   subr_ D_caddr;
  646.   subr_ D_cdaar;
  647.   subr_ D_cdadr;
  648.   subr_ D_cddar;
  649.   subr_ D_cdddr;
  650.   subr_ D_caaaar;
  651.   subr_ D_caaadr;
  652.   subr_ D_caadar;
  653.   subr_ D_caaddr;
  654.   subr_ D_cadaar;
  655.   subr_ D_cadadr;
  656.   subr_ D_caddar;
  657.   subr_ D_cadddr;
  658.   subr_ D_cdaaar;
  659.   subr_ D_cdaadr;
  660.   subr_ D_cdadar;
  661.   subr_ D_cdaddr;
  662.   subr_ D_cddaar;
  663.   subr_ D_cddadr;
  664.   subr_ D_cdddar;
  665.   subr_ D_cddddr;
  666.   subr_ D_cons;
  667.   subr_ D_tree_equal;
  668.   subr_ D_endp;
  669.   subr_ D_list_length;
  670.   subr_ D_nth;
  671.   subr_ D_first;
  672.   subr_ D_second;
  673.   subr_ D_third;
  674.   subr_ D_fourth;
  675.   subr_ D_fifth;
  676.   subr_ D_sixth;
  677.   subr_ D_seventh;
  678.   subr_ D_eighth;
  679.   subr_ D_ninth;
  680.   subr_ D_tenth;
  681.   subr_ D_rest;
  682.   subr_ D_nthcdr;
  683.   subr_ D_last;
  684.   subr_ D_list;
  685.   subr_ D_liststern;
  686.   subr_ D_make_list;
  687.   subr_ D_append;
  688.   subr_ D_copy_list;
  689.   subr_ D_copy_alist;
  690.   subr_ D_copy_tree;
  691.   subr_ D_revappend;
  692.   subr_ D_nconc;
  693.   subr_ D_nreconc;
  694.   subr_ D_list_nreverse;
  695.   subr_ D_butlast;
  696.   subr_ D_nbutlast;
  697.   subr_ D_ldiff;
  698.   subr_ D_rplaca;
  699.   subr_ D_prplaca;
  700.   subr_ D_rplacd;
  701.   subr_ D_prplacd;
  702.   subr_ D_subst;
  703.   subr_ D_subst_if;
  704.   subr_ D_subst_if_not;
  705.   subr_ D_nsubst;
  706.   subr_ D_nsubst_if;
  707.   subr_ D_nsubst_if_not;
  708.   subr_ D_sublis;
  709.   subr_ D_nsublis;
  710.   subr_ D_member;
  711.   subr_ D_member_if;
  712.   subr_ D_member_if_not;
  713.   subr_ D_tailp;
  714.   subr_ D_adjoin;
  715.   subr_ D_acons;
  716.   subr_ D_pairlis;
  717.   subr_ D_assoc;
  718.   subr_ D_assoc_if;
  719.   subr_ D_assoc_if_not;
  720.   subr_ D_rassoc;
  721.   subr_ D_rassoc_if;
  722.   subr_ D_rassoc_if_not;
  723.   subr_ D_list_upd;
  724.   subr_ D_list_endtest;
  725.   subr_ D_list_fe_init;
  726.   subr_ D_list_access;
  727.   subr_ D_list_access_set;
  728.   subr_ D_list_llength;
  729.   subr_ D_list_elt;
  730.   subr_ D_list_set_elt;
  731.   subr_ D_list_init_start;
  732.   subr_ D_list_fe_init_end;
  733.   subr_ D_lisp_implementation_type;
  734.   subr_ D_lisp_implementation_version;
  735.   subr_ D_version;
  736.   subr_ D_machinetype;
  737.   subr_ D_machine_version;
  738.   subr_ D_machine_instance;
  739.   subr_ D_get_env;
  740.   subr_ D_software_type;
  741.   subr_ D_software_version;
  742.   subr_ D_language;
  743.   subr_ D_identity;
  744.   subr_ D_address_of;
  745.   subr_ D_code_address_of;
  746.   subr_ D_program_id;
  747.   subr_ D_get_universal_time;
  748.   subr_ D_default_time_zone;
  749.   subr_ D_get_internal_run_time;
  750.   subr_ D_get_internal_real_time;
  751.   subr_ D_sleep;
  752.   subr_ D_time;
  753.   subr_ D_use_package_aux;
  754.   subr_ D_make_symbol;
  755.   subr_ D_find_package;
  756.   subr_ D_pfind_package;
  757.   subr_ D_package_name;
  758.   subr_ D_package_nicknames;
  759.   subr_ D_rename_package;
  760.   subr_ D_package_use_list;
  761.   subr_ D_package_used_by_list;
  762.   subr_ D_package_shadowing_symbols;
  763.   subr_ D_list_all_packages;
  764.   subr_ D_intern;
  765.   subr_ D_find_symbol;
  766.   subr_ D_unintern;
  767.   subr_ D_export;
  768.   subr_ D_unexport;
  769.   subr_ D_import;
  770.   subr_ D_shadowing_import;
  771.   subr_ D_shadow;
  772.   subr_ D_use_package;
  773.   subr_ D_unuse_package;
  774.   subr_ D_make_package;
  775.   subr_ D_pin_package;
  776.   subr_ D_in_package;
  777.   subr_ D_delete_package;
  778.   subr_ D_delete_package_aux;
  779.   subr_ D_find_all_symbols;
  780.   subr_ D_map_symbols;
  781.   subr_ D_map_symbols_aux;
  782.   subr_ D_map_external_symbols;
  783.   subr_ D_map_all_symbols;
  784.   subr_ D_package_iterator;
  785.   subr_ D_package_iterate;
  786.   subr_ D_parse_namestring;
  787.   subr_ D_pathname;
  788.   subr_ D_pathnamehost;
  789.   subr_ D_pathnamedevice;
  790.   subr_ D_pathnamedirectory;
  791.   subr_ D_pathnamename;
  792.   subr_ D_pathnametype;
  793.   subr_ D_pathnameversion;
  794.   subr_ D_logical_pathname;
  795.   subr_ D_translate_logical_pathname;
  796.   subr_ D_file_namestring;
  797.   subr_ D_directory_namestring;
  798.   subr_ D_host_namestring;
  799.   subr_ D_merge_pathnames;
  800.   subr_ D_enough_namestring;
  801.   subr_ D_make_pathname;
  802.   subr_ D_make_logical_pathname;
  803.   subr_ D_user_homedir_pathname;
  804.   subr_ D_wild_pathname_p;
  805.   subr_ D_pathname_match_p;
  806.   subr_ D_translate_pathname;
  807.   subr_ D_namestring;
  808.   subr_ D_truename;
  809.   subr_ D_probe_file;
  810.   subr_ D_delete_file;
  811.   subr_ D_rename_file;
  812.   subr_ D_open;
  813.   subr_ D_directory;
  814.   subr_ D_cd;
  815.   subr_ D_make_dir;
  816.   subr_ D_delete_dir;
  817.   subr_ D_file_write_date;
  818.   subr_ D_file_author;
  819.   subr_ D_execute;
  820.   subr_ D_shell;
  821.   subr_ D_savemem;
  822.   subr_ D_program_name;
  823.   subr_ D_eq;
  824.   subr_ D_eql;
  825.   subr_ D_equal;
  826.   subr_ D_equalp;
  827.   subr_ D_consp;
  828.   subr_ D_atom;
  829.   subr_ D_symbolp;
  830.   subr_ D_stringp;
  831.   subr_ D_numberp;
  832.   subr_ D_compiled_function_p;
  833.   subr_ D_null;
  834.   subr_ D_not;
  835.   subr_ D_closurep;
  836.   subr_ D_listp;
  837.   subr_ D_integerp;
  838.   subr_ D_fixnump;
  839.   subr_ D_rationalp;
  840.   subr_ D_floatp;
  841.   subr_ D_short_float_p;
  842.   subr_ D_single_float_p;
  843.   subr_ D_double_float_p;
  844.   subr_ D_long_float_p;
  845.   subr_ D_realp;
  846.   subr_ D_complexp;
  847.   subr_ D_streamp;
  848.   subr_ D_random_state_p;
  849.   subr_ D_readtablep;
  850.   subr_ D_hash_table_p;
  851.   subr_ D_pathnamep;
  852.   subr_ D_logical_pathname_p;
  853.   subr_ D_characterp;
  854.   subr_ D_functionp;
  855.   subr_ D_generic_function_p;
  856.   subr_ D_packagep;
  857.   subr_ D_arrayp;
  858.   subr_ D_simple_array_p;
  859.   subr_ D_bit_vector_p;
  860.   subr_ D_vectorp;
  861.   subr_ D_simple_vector_p;
  862.   subr_ D_simple_string_p;
  863.   subr_ D_simple_bit_vector_p;
  864.   subr_ D_commonp;
  865.   subr_ D_type_of;
  866.   subr_ D_defclos;
  867.   subr_ D_class_p;
  868.   subr_ D_class_of;
  869.   subr_ D_find_class;
  870.   subr_ D_coerce;
  871.   subr_ D_record_ref;
  872.   subr_ D_record_store;
  873.   subr_ D_record_length;
  874.   subr_ D_pstructure_ref;
  875.   subr_ D_structure_ref;
  876.   subr_ D_structure_store;
  877.   subr_ D_make_structure;
  878.   subr_ D_copy_structure;
  879.   subr_ D_structure_type_p;
  880.   subr_ D_closure_name;
  881.   subr_ D_closure_codevec;
  882.   subr_ D_closure_consts;
  883.   subr_ D_make_code_vector;
  884.   subr_ D_make_closure;
  885.   subr_ D_make_load_time_eval;
  886.   subr_ D_make_symbol_macro;
  887.   subr_ D_symbol_macro_p;
  888.   subr_ D_symbol_macro_expand;
  889.   subr_ D_finalize;
  890.   subr_ D_structure_instance_p;
  891.   subr_ D_std_instance_p;
  892.   subr_ D_allocate_std_instance;
  893.   subr_ D_allocate_instance;
  894.   subr_ D_slot_value;
  895.   subr_ D_set_slot_value;
  896.   subr_ D_slot_boundp;
  897.   subr_ D_slot_makunbound;
  898.   subr_ D_slot_exists_p;
  899.   subr_ D_shared_initialize;
  900.   subr_ D_reinitialize_instance;
  901.   subr_ D_initialize_instance;
  902.   subr_ D_make_instance;
  903.   subr_ D_sequencep;
  904.   subr_ D_defseq;
  905.   subr_ D_elt;
  906.   subr_ D_setelt;
  907.   subr_ D_subseq;
  908.   subr_ D_copy_seq;
  909.   subr_ D_length;
  910.   subr_ D_reverse;
  911.   subr_ D_nreverse;
  912.   subr_ D_make_sequence;
  913.   subr_ D_concatenate;
  914.   subr_ D_map;
  915.   subr_ D_map_into;
  916.   subr_ D_some;
  917.   subr_ D_every;
  918.   subr_ D_notany;
  919.   subr_ D_notevery;
  920.   subr_ D_reduce;
  921.   subr_ D_fill;
  922.   subr_ D_replace;
  923.   subr_ D_remove;
  924.   subr_ D_remove_if;
  925.   subr_ D_remove_if_not;
  926.   subr_ D_delete;
  927.   subr_ D_delete_if;
  928.   subr_ D_delete_if_not;
  929.   subr_ D_remove_duplicates;
  930.   subr_ D_delete_duplicates;
  931.   subr_ D_substitute;
  932.   subr_ D_substitute_if;
  933.   subr_ D_substitute_if_not;
  934.   subr_ D_nsubstitute;
  935.   subr_ D_nsubstitute_if;
  936.   subr_ D_nsubstitute_if_not;
  937.   subr_ D_find;
  938.   subr_ D_find_if;
  939.   subr_ D_find_if_not;
  940.   subr_ D_position;
  941.   subr_ D_position_if;
  942.   subr_ D_position_if_not;
  943.   subr_ D_count;
  944.   subr_ D_count_if;
  945.   subr_ D_count_if_not;
  946.   subr_ D_mismatch;
  947.   subr_ D_search;
  948.   subr_ D_sort;
  949.   subr_ D_stable_sort;
  950.   subr_ D_merge;
  951.   subr_ D_read_char_sequence;
  952.   subr_ D_write_char_sequence;
  953.   subr_ D_read_byte_sequence;
  954.   subr_ D_write_byte_sequence;
  955.   subr_ D_symbol_stream;
  956.   subr_ D_terminal_raw;
  957.   subr_ D_make_window;
  958.   subr_ D_window_size;
  959.   subr_ D_window_cursor_position;
  960.   subr_ D_set_window_cursor_position;
  961.   subr_ D_clear_window;
  962.   subr_ D_clear_window_to_eot;
  963.   subr_ D_clear_window_to_eol;
  964.   subr_ D_delete_window_line;
  965.   subr_ D_insert_window_line;
  966.   subr_ D_highlight_on;
  967.   subr_ D_highlight_off;
  968.   subr_ D_window_cursor_on;
  969.   subr_ D_window_cursor_off;
  970.   subr_ D_file_stream_p;
  971.   subr_ D_make_synonym_stream;
  972.   subr_ D_synonym_stream_p;
  973.   subr_ D_synonym_stream_symbol;
  974.   subr_ D_make_broadcast_stream;
  975.   subr_ D_broadcast_stream_p;
  976.   subr_ D_broadcast_stream_streams;
  977.   subr_ D_make_concatenated_stream;
  978.   subr_ D_concatenated_stream_p;
  979.   subr_ D_concatenated_stream_streams;
  980.   subr_ D_make_two_way_stream;
  981.   subr_ D_two_way_stream_p;
  982.   subr_ D_two_way_stream_input_stream;
  983.   subr_ D_two_way_stream_output_stream;
  984.   subr_ D_make_echo_stream;
  985.   subr_ D_echo_stream_p;
  986.   subr_ D_echo_stream_input_stream;
  987.   subr_ D_echo_stream_output_stream;
  988.   subr_ D_make_string_input_stream;
  989.   subr_ D_string_input_stream_index;
  990.   subr_ D_make_string_output_stream;
  991.   subr_ D_get_output_stream_string;
  992.   subr_ D_make_string_push_stream;
  993.   subr_ D_string_stream_p;
  994.   subr_ D_make_buffered_input_stream;
  995.   subr_ D_buffered_input_stream_index;
  996.   subr_ D_make_buffered_output_stream;
  997.   subr_ D_make_pipe_input_stream;
  998.   subr_ D_make_pipe_output_stream;
  999.   subr_ D_make_pipe_io_stream;
  1000.   subr_ D_make_x11socket_stream;
  1001.   subr_ D_read_n_bytes;
  1002.   subr_ D_write_n_bytes;
  1003.   subr_ D_socket_server_close;
  1004.   subr_ D_socket_server;
  1005.   subr_ D_socket_server_port;
  1006.   subr_ D_socket_accept;
  1007.   subr_ D_socket_wait;
  1008.   subr_ D_socket_connect;
  1009.   subr_ D_socket_service_port;
  1010.   subr_ D_socket_stream_port;
  1011.   subr_ D_socket_stream_host;
  1012.   subr_ D_socket_stream_peer_host;
  1013.   subr_ D_socket_stream_handle;
  1014.   subr_ D_generic_stream_controller;
  1015.   subr_ D_make_generic_stream;
  1016.   subr_ D_generic_stream_p;
  1017.   subr_ D_open_stream_p;
  1018.   subr_ D_input_stream_p;
  1019.   subr_ D_output_stream_p;
  1020.   subr_ D_stream_element_type;
  1021.   subr_ D_interactive_stream_p;
  1022.   subr_ D_close;
  1023.   subr_ D_read_byte;
  1024.   subr_ D_write_byte;
  1025.   subr_ D_file_position;
  1026.   subr_ D_file_length;
  1027.   subr_ D_line_number;
  1028.   subr_ D_putd;
  1029.   subr_ D_find_subr;
  1030.   subr_ D_proclaim_constant;
  1031.   subr_ D_get;
  1032.   subr_ D_getf;
  1033.   subr_ D_get_properties;
  1034.   subr_ D_putplist;
  1035.   subr_ D_put;
  1036.   subr_ D_remprop;
  1037.   subr_ D_symbol_package;
  1038.   subr_ D_symbol_plist;
  1039.   subr_ D_symbol_name;
  1040.   subr_ D_keywordp;
  1041.   subr_ D_special_variable_p;
  1042.   subr_ D_gensym;
  1043.   subr_ D_decimal_string;
  1044.   subr_ D_zerop;
  1045.   subr_ D_plusp;
  1046.   subr_ D_minusp;
  1047.   subr_ D_oddp;
  1048.   subr_ D_evenp;
  1049.   subr_ D_gleich;
  1050.   subr_ D_ungleich;
  1051.   subr_ D_kleiner;
  1052.   subr_ D_groesser;
  1053.   subr_ D_klgleich;
  1054.   subr_ D_grgleich;
  1055.   subr_ D_max;
  1056.   subr_ D_min;
  1057.   subr_ D_plus;
  1058.   subr_ D_minus;
  1059.   subr_ D_mal;
  1060.   subr_ D_durch;
  1061.   subr_ D_einsplus;
  1062.   subr_ D_einsminus;
  1063.   subr_ D_conjugate;
  1064.   subr_ D_gcd;
  1065.   subr_ D_xgcd;
  1066.   subr_ D_lcm;
  1067.   subr_ D_exp;
  1068.   subr_ D_expt;
  1069.   subr_ D_log;
  1070.   subr_ D_sqrt;
  1071.   subr_ D_isqrt;
  1072.   subr_ D_abs;
  1073.   subr_ D_phase;
  1074.   subr_ D_signum;
  1075.   subr_ D_sin;
  1076.   subr_ D_cos;
  1077.   subr_ D_tan;
  1078.   subr_ D_cis;
  1079.   subr_ D_asin;
  1080.   subr_ D_acos;
  1081.   subr_ D_atan;
  1082.   subr_ D_sinh;
  1083.   subr_ D_cosh;
  1084.   subr_ D_tanh;
  1085.   subr_ D_asinh;
  1086.   subr_ D_acosh;
  1087.   subr_ D_atanh;
  1088.   subr_ D_float;
  1089.   subr_ D_rational;
  1090.   subr_ D_rationalize;
  1091.   subr_ D_numerator;
  1092.   subr_ D_denominator;
  1093.   subr_ D_floor;
  1094.   subr_ D_ceiling;
  1095.   subr_ D_truncate;
  1096.   subr_ D_round;
  1097.   subr_ D_mod;
  1098.   subr_ D_rem;
  1099.   subr_ D_ffloor;
  1100.   subr_ D_fceiling;
  1101.   subr_ D_ftruncate;
  1102.   subr_ D_fround;
  1103.   subr_ D_decode_float;
  1104.   subr_ D_scale_float;
  1105.   subr_ D_float_radix;
  1106.   subr_ D_float_sign;
  1107.   subr_ D_float_digits;
  1108.   subr_ D_float_precision;
  1109.   subr_ D_integer_decode_float;
  1110.   subr_ D_complex;
  1111.   subr_ D_realpart;
  1112.   subr_ D_imagpart;
  1113.   subr_ D_logior;
  1114.   subr_ D_logxor;
  1115.   subr_ D_logand;
  1116.   subr_ D_logeqv;
  1117.   subr_ D_lognand;
  1118.   subr_ D_lognor;
  1119.   subr_ D_logandc1;
  1120.   subr_ D_logandc2;
  1121.   subr_ D_logorc1;
  1122.   subr_ D_logorc2;
  1123.   subr_ D_boole;
  1124.   subr_ D_lognot;
  1125.   subr_ D_logtest;
  1126.   subr_ D_logbitp;
  1127.   subr_ D_ash;
  1128.   subr_ D_logcount;
  1129.   subr_ D_integer_length;
  1130.   subr_ D_byte;
  1131.   subr_ D_bytesize;
  1132.   subr_ D_byteposition;
  1133.   subr_ D_ldb;
  1134.   subr_ D_ldb_test;
  1135.   subr_ D_mask_field;
  1136.   subr_ D_dpb;
  1137.   subr_ D_deposit_field;
  1138.   subr_ D_random;
  1139.   subr_ D_make_random_state;
  1140.   subr_ D_fakultaet;
  1141.   subr_ D_exquo;
  1142.   subr_ D_long_float_digits;
  1143.   subr_ D_set_long_float_digits;
  1144.   subr_ D_log2;
  1145.   subr_ D_log10;
  1146.   subr_ D_gr_init;
  1147.   subr_ D_gr_show;
  1148.   subr_ D_gr_clear;
  1149.   subr_ D_gr_dims;
  1150.   subr_ D_gr_dot;
  1151.   subr_ D_gr_box;
  1152.   subr_ D_gr_line;
  1153.   subr_ D_gr_text;
  1154.   subr_ D_validp;
  1155.   subr_ D_sizeof;
  1156.   subr_ D_bitsizeof;
  1157.   subr_ D_lookup_foreign_variable;
  1158.   subr_ D_foreign_value;
  1159.   subr_ D_set_foreign_value;
  1160.   subr_ D_foreign_type;
  1161.   subr_ D_foreign_size;
  1162.   subr_ D_element;
  1163.   subr_ D_deref;
  1164.   subr_ D_slot;
  1165.   subr_ D_cast;
  1166.   subr_ D_lookup_foreign_function;
  1167.   subr_ D_foreign_call_out;
  1168. } subr_tab_data;
  1169. extern struct symbol_tab_ {
  1170.   symbol_ S_nil;
  1171.   symbol_ S_t;
  1172.   symbol_ S_eval_when;
  1173.   symbol_ S_quote;
  1174.   symbol_ S_function;
  1175.   symbol_ S_setq;
  1176.   symbol_ S_psetq;
  1177.   symbol_ S_progn;
  1178.   symbol_ S_prog1;
  1179.   symbol_ S_prog2;
  1180.   symbol_ S_let;
  1181.   symbol_ S_letstern;
  1182.   symbol_ S_locally;
  1183.   symbol_ S_compiler_let;
  1184.   symbol_ S_progv;
  1185.   symbol_ S_flet;
  1186.   symbol_ S_labels;
  1187.   symbol_ S_macrolet;
  1188.   symbol_ S_symbol_macrolet;
  1189.   symbol_ S_if;
  1190.   symbol_ S_when;
  1191.   symbol_ S_unless;
  1192.   symbol_ S_cond;
  1193.   symbol_ S_block;
  1194.   symbol_ S_return_from;
  1195.   symbol_ S_tagbody;
  1196.   symbol_ S_go;
  1197.   symbol_ S_multiple_value_list;
  1198.   symbol_ S_multiple_value_call;
  1199.   symbol_ S_multiple_value_prog1;
  1200.   symbol_ S_multiple_value_bind;
  1201.   symbol_ S_multiple_value_setq;
  1202.   symbol_ S_catch;
  1203.   symbol_ S_unwind_protect;
  1204.   symbol_ S_throw;
  1205.   symbol_ S_declare;
  1206.   symbol_ S_the;
  1207.   symbol_ S_load_time_value;
  1208.   symbol_ S_and;
  1209.   symbol_ S_or;
  1210.   symbol_ S_funtabref;
  1211.   symbol_ S_subr_info;
  1212.   symbol_ S_copy_simple_vector;
  1213.   symbol_ S_vector;
  1214.   symbol_ S_aref;
  1215.   symbol_ S_store;
  1216.   symbol_ S_svref;
  1217.   symbol_ S_svstore;
  1218.   symbol_ S_psvstore;
  1219.   symbol_ S_row_major_aref;
  1220.   symbol_ S_row_major_store;
  1221.   symbol_ S_array_element_type;
  1222.   symbol_ S_array_rank;
  1223.   symbol_ S_array_dimension;
  1224.   symbol_ S_array_dimensions;
  1225.   symbol_ S_array_total_size;
  1226.   symbol_ S_array_in_bounds_p;
  1227.   symbol_ S_array_row_major_index;
  1228.   symbol_ S_adjustable_array_p;
  1229.   symbol_ S_bit;
  1230.   symbol_ S_sbit;
  1231.   symbol_ S_bit_and;
  1232.   symbol_ S_bit_ior;
  1233.   symbol_ S_bit_xor;
  1234.   symbol_ S_bit_eqv;
  1235.   symbol_ S_bit_nand;
  1236.   symbol_ S_bit_nor;
  1237.   symbol_ S_bit_andc1;
  1238.   symbol_ S_bit_andc2;
  1239.   symbol_ S_bit_orc1;
  1240.   symbol_ S_bit_orc2;
  1241.   symbol_ S_bit_not;
  1242.   symbol_ S_array_has_fill_pointer_p;
  1243.   symbol_ S_fill_pointer;
  1244.   symbol_ S_set_fill_pointer;
  1245.   symbol_ S_vector_push;
  1246.   symbol_ S_vector_pop;
  1247.   symbol_ S_vector_push_extend;
  1248.   symbol_ S_initial_contents_aux;
  1249.   symbol_ S_make_array;
  1250.   symbol_ S_adjust_array;
  1251.   symbol_ S_vector_init;
  1252.   symbol_ S_vector_upd;
  1253.   symbol_ S_vector_endtest;
  1254.   symbol_ S_vector_fe_init;
  1255.   symbol_ S_vector_fe_upd;
  1256.   symbol_ S_vector_fe_endtest;
  1257.   symbol_ S_vector_length;
  1258.   symbol_ S_vector_init_start;
  1259.   symbol_ S_vector_fe_init_end;
  1260.   symbol_ S_make_bit_vector;
  1261.   symbol_ S_standard_char_p;
  1262.   symbol_ S_graphic_char_p;
  1263.   symbol_ S_string_char_p;
  1264.   symbol_ S_alpha_char_p;
  1265.   symbol_ S_upper_case_p;
  1266.   symbol_ S_lower_case_p;
  1267.   symbol_ S_both_case_p;
  1268.   symbol_ S_digit_char_p;
  1269.   symbol_ S_alphanumericp;
  1270.   symbol_ S_char_gleich;
  1271.   symbol_ S_char_ungleich;
  1272.   symbol_ S_char_kleiner;
  1273.   symbol_ S_char_groesser;
  1274.   symbol_ S_char_klgleich;
  1275.   symbol_ S_char_grgleich;
  1276.   symbol_ S_char_equal;
  1277.   symbol_ S_char_not_equal;
  1278.   symbol_ S_char_lessp;
  1279.   symbol_ S_char_greaterp;
  1280.   symbol_ S_char_not_greaterp;
  1281.   symbol_ S_char_not_lessp;
  1282.   symbol_ S_char_code;
  1283.   symbol_ S_char_bits;
  1284.   symbol_ S_char_font;
  1285.   symbol_ S_code_char;
  1286.   symbol_ S_make_char;
  1287.   symbol_ S_character;
  1288.   symbol_ S_char_upcase;
  1289.   symbol_ S_char_downcase;
  1290.   symbol_ S_digit_char;
  1291.   symbol_ S_char_int;
  1292.   symbol_ S_int_char;
  1293.   symbol_ S_char_name;
  1294.   symbol_ S_char_bit;
  1295.   symbol_ S_set_char_bit;
  1296.   symbol_ S_char;
  1297.   symbol_ S_schar;
  1298.   symbol_ S_store_char;
  1299.   symbol_ S_store_schar;
  1300.   symbol_ S_string_gleich;
  1301.   symbol_ S_string_ungleich;
  1302.   symbol_ S_string_kleiner;
  1303.   symbol_ S_string_groesser;
  1304.   symbol_ S_string_klgleich;
  1305.   symbol_ S_string_grgleich;
  1306.   symbol_ S_string_equal;
  1307.   symbol_ S_string_not_equal;
  1308.   symbol_ S_string_lessp;
  1309.   symbol_ S_string_greaterp;
  1310.   symbol_ S_string_not_greaterp;
  1311.   symbol_ S_string_not_lessp;
  1312.   symbol_ S_search_string_gleich;
  1313.   symbol_ S_search_string_equal;
  1314.   symbol_ S_make_string;
  1315.   symbol_ S_string_both_trim;
  1316.   symbol_ S_nstring_upcase;
  1317.   symbol_ S_string_upcase;
  1318.   symbol_ S_nstring_downcase;
  1319.   symbol_ S_string_downcase;
  1320.   symbol_ S_nstring_capitalize;
  1321.   symbol_ S_string_capitalize;
  1322.   symbol_ S_string;
  1323.   symbol_ S_name_char;
  1324.   symbol_ S_substring;
  1325.   symbol_ S_string_concat;
  1326.   symbol_ S_exit;
  1327.   symbol_ S_psymbol_value;
  1328.   symbol_ S_symbol_value;
  1329.   symbol_ S_symbol_function;
  1330.   symbol_ S_fdefinition;
  1331.   symbol_ S_boundp;
  1332.   symbol_ S_fboundp;
  1333.   symbol_ S_special_form_p;
  1334.   symbol_ S_set;
  1335.   symbol_ S_makunbound;
  1336.   symbol_ S_fmakunbound;
  1337.   symbol_ S_apply;
  1338.   symbol_ S_pfuncall;
  1339.   symbol_ S_funcall;
  1340.   symbol_ S_mapcar;
  1341.   symbol_ S_maplist;
  1342.   symbol_ S_mapc;
  1343.   symbol_ S_mapl;
  1344.   symbol_ S_mapcan;
  1345.   symbol_ S_mapcon;
  1346.   symbol_ S_values;
  1347.   symbol_ S_values_list;
  1348.   symbol_ S_driver;
  1349.   symbol_ S_unwind_to_driver;
  1350.   symbol_ S_macro_function;
  1351.   symbol_ S_macroexpand;
  1352.   symbol_ S_macroexpand_1;
  1353.   symbol_ S_proclaim;
  1354.   symbol_ S_eval;
  1355.   symbol_ S_evalhook;
  1356.   symbol_ S_applyhook;
  1357.   symbol_ S_constantp;
  1358.   symbol_ S_function_name_p;
  1359.   symbol_ S_parse_body;
  1360.   symbol_ S_keyword_test;
  1361.   symbol_ S_read_form;
  1362.   symbol_ S_read_eval_print;
  1363.   symbol_ S_load;
  1364.   symbol_ S_frame_up_1;
  1365.   symbol_ S_frame_up;
  1366.   symbol_ S_frame_down_1;
  1367.   symbol_ S_frame_down;
  1368.   symbol_ S_the_frame;
  1369.   symbol_ S_same_env_as;
  1370.   symbol_ S_eval_at;
  1371.   symbol_ S_eval_frame_p;
  1372.   symbol_ S_driver_frame_p;
  1373.   symbol_ S_trap_eval_frame;
  1374.   symbol_ S_redo_eval_frame;
  1375.   symbol_ S_return_from_eval_frame;
  1376.   symbol_ S_describe_frame;
  1377.   symbol_ S_show_stack;
  1378.   symbol_ S_debug;
  1379.   symbol_ S_room;
  1380.   symbol_ S_gc;
  1381.   symbol_ S_error;
  1382.   symbol_ S_defclcs;
  1383.   symbol_ S_error_of_type;
  1384.   symbol_ S_invoke_debugger;
  1385.   symbol_ S_clcs_signal;
  1386.   symbol_ S_make_hash_table;
  1387.   symbol_ S_gethash;
  1388.   symbol_ S_puthash;
  1389.   symbol_ S_remhash;
  1390.   symbol_ S_maphash;
  1391.   symbol_ S_clrhash;
  1392.   symbol_ S_hash_table_count;
  1393.   symbol_ S_hash_table_rehash_size;
  1394.   symbol_ S_hash_table_rehash_threshold;
  1395.   symbol_ S_hash_table_size;
  1396.   symbol_ S_hash_table_test;
  1397.   symbol_ S_hash_table_iterator;
  1398.   symbol_ S_hash_table_iterate;
  1399.   symbol_ S_class_gethash;
  1400.   symbol_ S_class_tuple_gethash;
  1401.   symbol_ S_sxhash;
  1402.   symbol_ S_copy_readtable;
  1403.   symbol_ S_set_syntax_from_char;
  1404.   symbol_ S_set_macro_character;
  1405.   symbol_ S_get_macro_character;
  1406.   symbol_ S_make_dispatch_macro_character;
  1407.   symbol_ S_set_dispatch_macro_character;
  1408.   symbol_ S_get_dispatch_macro_character;
  1409.   symbol_ S_readtable_case;
  1410.   symbol_ S_set_readtable_case;
  1411.   symbol_ S_lpar_reader;
  1412.   symbol_ S_rpar_reader;
  1413.   symbol_ S_quote_reader;
  1414.   symbol_ S_function_reader;
  1415.   symbol_ S_string_reader;
  1416.   symbol_ S_line_comment_reader;
  1417.   symbol_ S_comment_reader;
  1418.   symbol_ S_char_reader;
  1419.   symbol_ S_binary_reader;
  1420.   symbol_ S_octal_reader;
  1421.   symbol_ S_hexadecimal_reader;
  1422.   symbol_ S_radix_reader;
  1423.   symbol_ S_complex_reader;
  1424.   symbol_ S_uninterned_reader;
  1425.   symbol_ S_bit_vector_reader;
  1426.   symbol_ S_vector_reader;
  1427.   symbol_ S_array_reader;
  1428.   symbol_ S_read_eval_reader;
  1429.   symbol_ S_load_eval_reader;
  1430.   symbol_ S_label_definition_reader;
  1431.   symbol_ S_label_reference_reader;
  1432.   symbol_ S_not_readable_reader;
  1433.   symbol_ S_syntax_error_reader;
  1434.   symbol_ S_feature_reader;
  1435.   symbol_ S_not_feature_reader;
  1436.   symbol_ S_structure_reader;
  1437.   symbol_ S_closure_reader;
  1438.   symbol_ S_pathname_reader;
  1439.   symbol_ S_read;
  1440.   symbol_ S_read_preserving_whitespace;
  1441.   symbol_ S_read_delimited_list;
  1442.   symbol_ S_read_line;
  1443.   symbol_ S_read_char;
  1444.   symbol_ S_unread_char;
  1445.   symbol_ S_peek_char;
  1446.   symbol_ S_listen;
  1447.   symbol_ S_read_char_no_hang;
  1448.   symbol_ S_clear_input;
  1449.   symbol_ S_read_from_string;
  1450.   symbol_ S_parse_integer;
  1451.   symbol_ S_write;
  1452.   symbol_ S_prin1;
  1453.   symbol_ S_print;
  1454.   symbol_ S_pprint;
  1455.   symbol_ S_princ;
  1456.   symbol_ S_write_to_string;
  1457.   symbol_ S_prin1_to_string;
  1458.   symbol_ S_princ_to_string;
  1459.   symbol_ S_write_char;
  1460.   symbol_ S_write_string;
  1461.   symbol_ S_write_line;
  1462.   symbol_ S_terpri;
  1463.   symbol_ S_fresh_line;
  1464.   symbol_ S_finish_output;
  1465.   symbol_ S_force_output;
  1466.   symbol_ S_clear_output;
  1467.   symbol_ S_write_unreadable;
  1468.   symbol_ S_line_position;
  1469.   symbol_ S_car;
  1470.   symbol_ S_cdr;
  1471.   symbol_ S_caar;
  1472.   symbol_ S_cadr;
  1473.   symbol_ S_cdar;
  1474.   symbol_ S_cddr;
  1475.   symbol_ S_caaar;
  1476.   symbol_ S_caadr;
  1477.   symbol_ S_cadar;
  1478.   symbol_ S_caddr;
  1479.   symbol_ S_cdaar;
  1480.   symbol_ S_cdadr;
  1481.   symbol_ S_cddar;
  1482.   symbol_ S_cdddr;
  1483.   symbol_ S_caaaar;
  1484.   symbol_ S_caaadr;
  1485.   symbol_ S_caadar;
  1486.   symbol_ S_caaddr;
  1487.   symbol_ S_cadaar;
  1488.   symbol_ S_cadadr;
  1489.   symbol_ S_caddar;
  1490.   symbol_ S_cadddr;
  1491.   symbol_ S_cdaaar;
  1492.   symbol_ S_cdaadr;
  1493.   symbol_ S_cdadar;
  1494.   symbol_ S_cdaddr;
  1495.   symbol_ S_cddaar;
  1496.   symbol_ S_cddadr;
  1497.   symbol_ S_cdddar;
  1498.   symbol_ S_cddddr;
  1499.   symbol_ S_cons;
  1500.   symbol_ S_tree_equal;
  1501.   symbol_ S_endp;
  1502.   symbol_ S_list_length;
  1503.   symbol_ S_nth;
  1504.   symbol_ S_first;
  1505.   symbol_ S_second;
  1506.   symbol_ S_third;
  1507.   symbol_ S_fourth;
  1508.   symbol_ S_fifth;
  1509.   symbol_ S_sixth;
  1510.   symbol_ S_seventh;
  1511.   symbol_ S_eighth;
  1512.   symbol_ S_ninth;
  1513.   symbol_ S_tenth;
  1514.   symbol_ S_rest;
  1515.   symbol_ S_nthcdr;
  1516.   symbol_ S_last;
  1517.   symbol_ S_list;
  1518.   symbol_ S_liststern;
  1519.   symbol_ S_make_list;
  1520.   symbol_ S_append;
  1521.   symbol_ S_copy_list;
  1522.   symbol_ S_copy_alist;
  1523.   symbol_ S_copy_tree;
  1524.   symbol_ S_revappend;
  1525.   symbol_ S_nconc;
  1526.   symbol_ S_nreconc;
  1527.   symbol_ S_list_nreverse;
  1528.   symbol_ S_butlast;
  1529.   symbol_ S_nbutlast;
  1530.   symbol_ S_ldiff;
  1531.   symbol_ S_rplaca;
  1532.   symbol_ S_prplaca;
  1533.   symbol_ S_rplacd;
  1534.   symbol_ S_prplacd;
  1535.   symbol_ S_subst;
  1536.   symbol_ S_subst_if;
  1537.   symbol_ S_subst_if_not;
  1538.   symbol_ S_nsubst;
  1539.   symbol_ S_nsubst_if;
  1540.   symbol_ S_nsubst_if_not;
  1541.   symbol_ S_sublis;
  1542.   symbol_ S_nsublis;
  1543.   symbol_ S_member;
  1544.   symbol_ S_member_if;
  1545.   symbol_ S_member_if_not;
  1546.   symbol_ S_tailp;
  1547.   symbol_ S_adjoin;
  1548.   symbol_ S_acons;
  1549.   symbol_ S_pairlis;
  1550.   symbol_ S_assoc;
  1551.   symbol_ S_assoc_if;
  1552.   symbol_ S_assoc_if_not;
  1553.   symbol_ S_rassoc;
  1554.   symbol_ S_rassoc_if;
  1555.   symbol_ S_rassoc_if_not;
  1556.   symbol_ S_list_upd;
  1557.   symbol_ S_list_endtest;
  1558.   symbol_ S_list_fe_init;
  1559.   symbol_ S_list_access;
  1560.   symbol_ S_list_access_set;
  1561.   symbol_ S_list_llength;
  1562.   symbol_ S_list_elt;
  1563.   symbol_ S_list_set_elt;
  1564.   symbol_ S_list_init_start;
  1565.   symbol_ S_list_fe_init_end;
  1566.   symbol_ S_lisp_implementation_type;
  1567.   symbol_ S_lisp_implementation_version;
  1568.   symbol_ S_version;
  1569.   symbol_ S_machinetype;
  1570.   symbol_ S_machine_version;
  1571.   symbol_ S_machine_instance;
  1572.   symbol_ S_get_env;
  1573.   symbol_ S_software_type;
  1574.   symbol_ S_software_version;
  1575.   symbol_ S_language;
  1576.   symbol_ S_identity;
  1577.   symbol_ S_address_of;
  1578.   symbol_ S_code_address_of;
  1579.   symbol_ S_program_id;
  1580.   symbol_ S_get_universal_time;
  1581.   symbol_ S_default_time_zone;
  1582.   symbol_ S_get_internal_run_time;
  1583.   symbol_ S_get_internal_real_time;
  1584.   symbol_ S_sleep;
  1585.   symbol_ S_time;
  1586.   symbol_ S_use_package_aux;
  1587.   symbol_ S_make_symbol;
  1588.   symbol_ S_find_package;
  1589.   symbol_ S_pfind_package;
  1590.   symbol_ S_package_name;
  1591.   symbol_ S_package_nicknames;
  1592.   symbol_ S_rename_package;
  1593.   symbol_ S_package_use_list;
  1594.   symbol_ S_package_used_by_list;
  1595.   symbol_ S_package_shadowing_symbols;
  1596.   symbol_ S_list_all_packages;
  1597.   symbol_ S_intern;
  1598.   symbol_ S_find_symbol;
  1599.   symbol_ S_unintern;
  1600.   symbol_ S_export;
  1601.   symbol_ S_unexport;
  1602.   symbol_ S_import;
  1603.   symbol_ S_shadowing_import;
  1604.   symbol_ S_shadow;
  1605.   symbol_ S_use_package;
  1606.   symbol_ S_unuse_package;
  1607.   symbol_ S_make_package;
  1608.   symbol_ S_pin_package;
  1609.   symbol_ S_in_package;
  1610.   symbol_ S_delete_package;
  1611.   symbol_ S_delete_package_aux;
  1612.   symbol_ S_find_all_symbols;
  1613.   symbol_ S_map_symbols;
  1614.   symbol_ S_map_symbols_aux;
  1615.   symbol_ S_map_external_symbols;
  1616.   symbol_ S_map_all_symbols;
  1617.   symbol_ S_package_iterator;
  1618.   symbol_ S_package_iterate;
  1619.   symbol_ S_parse_namestring;
  1620.   symbol_ S_pathname;
  1621.   symbol_ S_pathnamehost;
  1622.   symbol_ S_pathnamedevice;
  1623.   symbol_ S_pathnamedirectory;
  1624.   symbol_ S_pathnamename;
  1625.   symbol_ S_pathnametype;
  1626.   symbol_ S_pathnameversion;
  1627.   symbol_ S_logical_pathname;
  1628.   symbol_ S_translate_logical_pathname;
  1629.   symbol_ S_file_namestring;
  1630.   symbol_ S_directory_namestring;
  1631.   symbol_ S_host_namestring;
  1632.   symbol_ S_merge_pathnames;
  1633.   symbol_ S_enough_namestring;
  1634.   symbol_ S_make_pathname;
  1635.   symbol_ S_make_logical_pathname;
  1636.   symbol_ S_user_homedir_pathname;
  1637.   symbol_ S_wild_pathname_p;
  1638.   symbol_ S_pathname_match_p;
  1639.   symbol_ S_translate_pathname;
  1640.   symbol_ S_namestring;
  1641.   symbol_ S_truename;
  1642.   symbol_ S_probe_file;
  1643.   symbol_ S_delete_file;
  1644.   symbol_ S_rename_file;
  1645.   symbol_ S_open;
  1646.   symbol_ S_directory;
  1647.   symbol_ S_cd;
  1648.   symbol_ S_make_dir;
  1649.   symbol_ S_delete_dir;
  1650.   symbol_ S_file_write_date;
  1651.   symbol_ S_file_author;
  1652.   symbol_ S_execute;
  1653.   symbol_ S_shell;
  1654.   symbol_ S_savemem;
  1655.   symbol_ S_program_name;
  1656.   symbol_ S_eq;
  1657.   symbol_ S_eql;
  1658.   symbol_ S_equal;
  1659.   symbol_ S_equalp;
  1660.   symbol_ S_consp;
  1661.   symbol_ S_atom;
  1662.   symbol_ S_symbolp;
  1663.   symbol_ S_stringp;
  1664.   symbol_ S_numberp;
  1665.   symbol_ S_compiled_function_p;
  1666.   symbol_ S_null;
  1667.   symbol_ S_not;
  1668.   symbol_ S_closurep;
  1669.   symbol_ S_listp;
  1670.   symbol_ S_integerp;
  1671.   symbol_ S_fixnump;
  1672.   symbol_ S_rationalp;
  1673.   symbol_ S_floatp;
  1674.   symbol_ S_short_float_p;
  1675.   symbol_ S_single_float_p;
  1676.   symbol_ S_double_float_p;
  1677.   symbol_ S_long_float_p;
  1678.   symbol_ S_realp;
  1679.   symbol_ S_complexp;
  1680.   symbol_ S_streamp;
  1681.   symbol_ S_random_state_p;
  1682.   symbol_ S_readtablep;
  1683.   symbol_ S_hash_table_p;
  1684.   symbol_ S_pathnamep;
  1685.   symbol_ S_logical_pathname_p;
  1686.   symbol_ S_characterp;
  1687.   symbol_ S_functionp;
  1688.   symbol_ S_generic_function_p;
  1689.   symbol_ S_packagep;
  1690.   symbol_ S_arrayp;
  1691.   symbol_ S_simple_array_p;
  1692.   symbol_ S_bit_vector_p;
  1693.   symbol_ S_vectorp;
  1694.   symbol_ S_simple_vector_p;
  1695.   symbol_ S_simple_string_p;
  1696.   symbol_ S_simple_bit_vector_p;
  1697.   symbol_ S_commonp;
  1698.   symbol_ S_type_of;
  1699.   symbol_ S_defclos;
  1700.   symbol_ S_class_p;
  1701.   symbol_ S_class_of;
  1702.   symbol_ S_find_class;
  1703.   symbol_ S_coerce;
  1704.   symbol_ S_record_ref;
  1705.   symbol_ S_record_store;
  1706.   symbol_ S_record_length;
  1707.   symbol_ S_pstructure_ref;
  1708.   symbol_ S_structure_ref;
  1709.   symbol_ S_structure_store;
  1710.   symbol_ S_make_structure;
  1711.   symbol_ S_copy_structure;
  1712.   symbol_ S_structure_type_p;
  1713.   symbol_ S_closure_name;
  1714.   symbol_ S_closure_codevec;
  1715.   symbol_ S_closure_consts;
  1716.   symbol_ S_make_code_vector;
  1717.   symbol_ S_make_closure;
  1718.   symbol_ S_make_load_time_eval;
  1719.   symbol_ S_make_symbol_macro;
  1720.   symbol_ S_symbol_macro_p;
  1721.   symbol_ S_symbol_macro_expand;
  1722.   symbol_ S_finalize;
  1723.   symbol_ S_structure_instance_p;
  1724.   symbol_ S_std_instance_p;
  1725.   symbol_ S_allocate_std_instance;
  1726.   symbol_ S_allocate_instance;
  1727.   symbol_ S_slot_value;
  1728.   symbol_ S_set_slot_value;
  1729.   symbol_ S_slot_boundp;
  1730.   symbol_ S_slot_makunbound;
  1731.   symbol_ S_slot_exists_p;
  1732.   symbol_ S_shared_initialize;
  1733.   symbol_ S_reinitialize_instance;
  1734.   symbol_ S_initialize_instance;
  1735.   symbol_ S_make_instance;
  1736.   symbol_ S_sequencep;
  1737.   symbol_ S_defseq;
  1738.   symbol_ S_elt;
  1739.   symbol_ S_setelt;
  1740.   symbol_ S_subseq;
  1741.   symbol_ S_copy_seq;
  1742.   symbol_ S_length;
  1743.   symbol_ S_reverse;
  1744.   symbol_ S_nreverse;
  1745.   symbol_ S_make_sequence;
  1746.   symbol_ S_concatenate;
  1747.   symbol_ S_map;
  1748.   symbol_ S_map_into;
  1749.   symbol_ S_some;
  1750.   symbol_ S_every;
  1751.   symbol_ S_notany;
  1752.   symbol_ S_notevery;
  1753.   symbol_ S_reduce;
  1754.   symbol_ S_fill;
  1755.   symbol_ S_replace;
  1756.   symbol_ S_remove;
  1757.   symbol_ S_remove_if;
  1758.   symbol_ S_remove_if_not;
  1759.   symbol_ S_delete;
  1760.   symbol_ S_delete_if;
  1761.   symbol_ S_delete_if_not;
  1762.   symbol_ S_remove_duplicates;
  1763.   symbol_ S_delete_duplicates;
  1764.   symbol_ S_substitute;
  1765.   symbol_ S_substitute_if;
  1766.   symbol_ S_substitute_if_not;
  1767.   symbol_ S_nsubstitute;
  1768.   symbol_ S_nsubstitute_if;
  1769.   symbol_ S_nsubstitute_if_not;
  1770.   symbol_ S_find;
  1771.   symbol_ S_find_if;
  1772.   symbol_ S_find_if_not;
  1773.   symbol_ S_position;
  1774.   symbol_ S_position_if;
  1775.   symbol_ S_position_if_not;
  1776.   symbol_ S_count;
  1777.   symbol_ S_count_if;
  1778.   symbol_ S_count_if_not;
  1779.   symbol_ S_mismatch;
  1780.   symbol_ S_search;
  1781.   symbol_ S_sort;
  1782.   symbol_ S_stable_sort;
  1783.   symbol_ S_merge;
  1784.   symbol_ S_read_char_sequence;
  1785.   symbol_ S_write_char_sequence;
  1786.   symbol_ S_read_byte_sequence;
  1787.   symbol_ S_write_byte_sequence;
  1788.   symbol_ S_symbol_stream;
  1789.   symbol_ S_terminal_raw;
  1790.   symbol_ S_make_window;
  1791.   symbol_ S_window_size;
  1792.   symbol_ S_window_cursor_position;
  1793.   symbol_ S_set_window_cursor_position;
  1794.   symbol_ S_clear_window;
  1795.   symbol_ S_clear_window_to_eot;
  1796.   symbol_ S_clear_window_to_eol;
  1797.   symbol_ S_delete_window_line;
  1798.   symbol_ S_insert_window_line;
  1799.   symbol_ S_highlight_on;
  1800.   symbol_ S_highlight_off;
  1801.   symbol_ S_window_cursor_on;
  1802.   symbol_ S_window_cursor_off;
  1803.   symbol_ S_file_stream_p;
  1804.   symbol_ S_make_synonym_stream;
  1805.   symbol_ S_synonym_stream_p;
  1806.   symbol_ S_synonym_stream_symbol;
  1807.   symbol_ S_make_broadcast_stream;
  1808.   symbol_ S_broadcast_stream_p;
  1809.   symbol_ S_broadcast_stream_streams;
  1810.   symbol_ S_make_concatenated_stream;
  1811.   symbol_ S_concatenated_stream_p;
  1812.   symbol_ S_concatenated_stream_streams;
  1813.   symbol_ S_make_two_way_stream;
  1814.   symbol_ S_two_way_stream_p;
  1815.   symbol_ S_two_way_stream_input_stream;
  1816.   symbol_ S_two_way_stream_output_stream;
  1817.   symbol_ S_make_echo_stream;
  1818.   symbol_ S_echo_stream_p;
  1819.   symbol_ S_echo_stream_input_stream;
  1820.   symbol_ S_echo_stream_output_stream;
  1821.   symbol_ S_make_string_input_stream;
  1822.   symbol_ S_string_input_stream_index;
  1823.   symbol_ S_make_string_output_stream;
  1824.   symbol_ S_get_output_stream_string;
  1825.   symbol_ S_make_string_push_stream;
  1826.   symbol_ S_string_stream_p;
  1827.   symbol_ S_make_buffered_input_stream;
  1828.   symbol_ S_buffered_input_stream_index;
  1829.   symbol_ S_make_buffered_output_stream;
  1830.   symbol_ S_make_pipe_input_stream;
  1831.   symbol_ S_make_pipe_output_stream;
  1832.   symbol_ S_make_pipe_io_stream;
  1833.   symbol_ S_make_x11socket_stream;
  1834.   symbol_ S_read_n_bytes;
  1835.   symbol_ S_write_n_bytes;
  1836.   symbol_ S_socket_server;
  1837.   symbol_ S_socket_server_close;
  1838.   symbol_ S_socket_server_port;
  1839.   symbol_ S_socket_accept;
  1840.   symbol_ S_socket_wait;
  1841.   symbol_ S_socket_connect;
  1842.   symbol_ S_socket_service_port;
  1843.   symbol_ S_socket_stream_port;
  1844.   symbol_ S_socket_stream_host;
  1845.   symbol_ S_socket_stream_peer_host;
  1846.   symbol_ S_socket_stream_handle;
  1847.   symbol_ S_generic_stream_controller;
  1848.   symbol_ S_make_generic_stream;
  1849.   symbol_ S_generic_stream_p;
  1850.   symbol_ S_open_stream_p;
  1851.   symbol_ S_input_stream_p;
  1852.   symbol_ S_output_stream_p;
  1853.   symbol_ S_stream_element_type;
  1854.   symbol_ S_interactive_stream_p;
  1855.   symbol_ S_close;
  1856.   symbol_ S_read_byte;
  1857.   symbol_ S_write_byte;
  1858.   symbol_ S_file_position;
  1859.   symbol_ S_file_length;
  1860.   symbol_ S_line_number;
  1861.   symbol_ S_putd;
  1862.   symbol_ S_find_subr;
  1863.   symbol_ S_proclaim_constant;
  1864.   symbol_ S_get;
  1865.   symbol_ S_getf;
  1866.   symbol_ S_get_properties;
  1867.   symbol_ S_putplist;
  1868.   symbol_ S_put;
  1869.   symbol_ S_remprop;
  1870.   symbol_ S_symbol_package;
  1871.   symbol_ S_symbol_plist;
  1872.   symbol_ S_symbol_name;
  1873.   symbol_ S_keywordp;
  1874.   symbol_ S_special_variable_p;
  1875.   symbol_ S_gensym;
  1876.   symbol_ S_decimal_string;
  1877.   symbol_ S_zerop;
  1878.   symbol_ S_plusp;
  1879.   symbol_ S_minusp;
  1880.   symbol_ S_oddp;
  1881.   symbol_ S_evenp;
  1882.   symbol_ S_gleich;
  1883.   symbol_ S_ungleich;
  1884.   symbol_ S_kleiner;
  1885.   symbol_ S_groesser;
  1886.   symbol_ S_klgleich;
  1887.   symbol_ S_grgleich;
  1888.   symbol_ S_max;
  1889.   symbol_ S_min;
  1890.   symbol_ S_plus;
  1891.   symbol_ S_minus;
  1892.   symbol_ S_mal;
  1893.   symbol_ S_durch;
  1894.   symbol_ S_einsplus;
  1895.   symbol_ S_einsminus;
  1896.   symbol_ S_conjugate;
  1897.   symbol_ S_gcd;
  1898.   symbol_ S_xgcd;
  1899.   symbol_ S_lcm;
  1900.   symbol_ S_exp;
  1901.   symbol_ S_expt;
  1902.   symbol_ S_log;
  1903.   symbol_ S_sqrt;
  1904.   symbol_ S_isqrt;
  1905.   symbol_ S_abs;
  1906.   symbol_ S_phase;
  1907.   symbol_ S_signum;
  1908.   symbol_ S_sin;
  1909.   symbol_ S_cos;
  1910.   symbol_ S_tan;
  1911.   symbol_ S_cis;
  1912.   symbol_ S_asin;
  1913.   symbol_ S_acos;
  1914.   symbol_ S_atan;
  1915.   symbol_ S_sinh;
  1916.   symbol_ S_cosh;
  1917.   symbol_ S_tanh;
  1918.   symbol_ S_asinh;
  1919.   symbol_ S_acosh;
  1920.   symbol_ S_atanh;
  1921.   symbol_ S_float;
  1922.   symbol_ S_rational;
  1923.   symbol_ S_rationalize;
  1924.   symbol_ S_numerator;
  1925.   symbol_ S_denominator;
  1926.   symbol_ S_floor;
  1927.   symbol_ S_ceiling;
  1928.   symbol_ S_truncate;
  1929.   symbol_ S_round;
  1930.   symbol_ S_mod;
  1931.   symbol_ S_rem;
  1932.   symbol_ S_ffloor;
  1933.   symbol_ S_fceiling;
  1934.   symbol_ S_ftruncate;
  1935.   symbol_ S_fround;
  1936.   symbol_ S_decode_float;
  1937.   symbol_ S_scale_float;
  1938.   symbol_ S_float_radix;
  1939.   symbol_ S_float_sign;
  1940.   symbol_ S_float_digits;
  1941.   symbol_ S_float_precision;
  1942.   symbol_ S_integer_decode_float;
  1943.   symbol_ S_complex;
  1944.   symbol_ S_realpart;
  1945.   symbol_ S_imagpart;
  1946.   symbol_ S_logior;
  1947.   symbol_ S_logxor;
  1948.   symbol_ S_logand;
  1949.   symbol_ S_logeqv;
  1950.   symbol_ S_lognand;
  1951.   symbol_ S_lognor;
  1952.   symbol_ S_logandc1;
  1953.   symbol_ S_logandc2;
  1954.   symbol_ S_logorc1;
  1955.   symbol_ S_logorc2;
  1956.   symbol_ S_boole;
  1957.   symbol_ S_lognot;
  1958.   symbol_ S_logtest;
  1959.   symbol_ S_logbitp;
  1960.   symbol_ S_ash;
  1961.   symbol_ S_logcount;
  1962.   symbol_ S_integer_length;
  1963.   symbol_ S_byte;
  1964.   symbol_ S_bytesize;
  1965.   symbol_ S_byteposition;
  1966.   symbol_ S_ldb;
  1967.   symbol_ S_ldb_test;
  1968.   symbol_ S_mask_field;
  1969.   symbol_ S_dpb;
  1970.   symbol_ S_deposit_field;
  1971.   symbol_ S_random;
  1972.   symbol_ S_make_random_state;
  1973.   symbol_ S_fakultaet;
  1974.   symbol_ S_exquo;
  1975.   symbol_ S_long_float_digits;
  1976.   symbol_ S_set_long_float_digits;
  1977.   symbol_ S_log2;
  1978.   symbol_ S_log10;
  1979.   symbol_ S_gr_init;
  1980.   symbol_ S_gr_show;
  1981.   symbol_ S_gr_clear;
  1982.   symbol_ S_gr_dims;
  1983.   symbol_ S_gr_dot;
  1984.   symbol_ S_gr_box;
  1985.   symbol_ S_gr_line;
  1986.   symbol_ S_gr_text;
  1987.   symbol_ S_validp;
  1988.   symbol_ S_sizeof;
  1989.   symbol_ S_bitsizeof;
  1990.   symbol_ S_lookup_foreign_variable;
  1991.   symbol_ S_foreign_value;
  1992.   symbol_ S_set_foreign_value;
  1993.   symbol_ S_foreign_type;
  1994.   symbol_ S_foreign_size;
  1995.   symbol_ S_element;
  1996.   symbol_ S_deref;
  1997.   symbol_ S_slot;
  1998.   symbol_ S_cast;
  1999.   symbol_ S_lookup_foreign_function;
  2000.   symbol_ S_foreign_call_out;
  2001.   symbol_ S_Kallow_other_keys;
  2002.   symbol_ S_Kadjustable;
  2003.   symbol_ S_Kelement_type;
  2004.   symbol_ S_Kinitial_element;
  2005.   symbol_ S_Kinitial_contents;
  2006.   symbol_ S_Kfill_pointer;
  2007.   symbol_ S_Kdisplaced_to;
  2008.   symbol_ S_Kdisplaced_index_offset;
  2009.   symbol_ S_Kstart1;
  2010.   symbol_ S_Kend1;
  2011.   symbol_ S_Kstart2;
  2012.   symbol_ S_Kend2;
  2013.   symbol_ S_Kstart;
  2014.   symbol_ S_Kend;
  2015.   symbol_ S_Kpreserve_whitespace;
  2016.   symbol_ S_Kradix;
  2017.   symbol_ S_Kjunk_allowed;
  2018.   symbol_ S_Kcase;
  2019.   symbol_ S_Klevel;
  2020.   symbol_ S_Klength;
  2021.   symbol_ S_Kgensym;
  2022.   symbol_ S_Kescape;
  2023.   symbol_ S_Kbase;
  2024.   symbol_ S_Karray;
  2025.   symbol_ S_Kcircle;
  2026.   symbol_ S_Kpretty;
  2027.   symbol_ S_Kclosure;
  2028.   symbol_ S_Kreadably;
  2029.   symbol_ S_Kstream;
  2030.   symbol_ S_Kidentity;
  2031.   symbol_ S_Ktest;
  2032.   symbol_ S_Ktest_not;
  2033.   symbol_ S_Kkey;
  2034.   symbol_ S_Knicknames;
  2035.   symbol_ S_Kuse;
  2036.   symbol_ S_Kupdate;
  2037.   symbol_ S_Kfrom_end;
  2038.   symbol_ S_Kinitial_value;
  2039.   symbol_ S_Kcount;
  2040.   symbol_ S_Ksize;
  2041.   symbol_ S_Krehash_size;
  2042.   symbol_ S_Krehash_threshold;
  2043.   symbol_ S_Kdefaults;
  2044.   symbol_ S_Kdevice;
  2045.   symbol_ S_Kdirectory;
  2046.   symbol_ S_Kname;
  2047.   symbol_ S_Ktype;
  2048.   symbol_ S_Kversion;
  2049.   symbol_ S_Khost;
  2050.   symbol_ S_Kall;
  2051.   symbol_ S_Kmerge;
  2052.   symbol_ S_Kdirection;
  2053.   symbol_ S_Kif_exists;
  2054.   symbol_ S_Kif_does_not_exist;
  2055.   symbol_ S_Kfull;
  2056.   symbol_ S_Kabort;
  2057.   symbol_ S_string_char;
  2058.   symbol_ S_array_rank_limit;
  2059.   symbol_ S_array_dimension_limit;
  2060.   symbol_ S_array_total_size_limit;
  2061.   symbol_ S_subtype_integer;
  2062.   symbol_ S_structure;
  2063.   symbol_ S_slot_missing;
  2064.   symbol_ S_slot_unbound;
  2065.   symbol_ S_reinitialize_instance_table;
  2066.   symbol_ S_make_instance_table;
  2067.   symbol_ S_initial_reinitialize_instance;
  2068.   symbol_ S_initial_initialize_instance;
  2069.   symbol_ S_initial_make_instance;
  2070.   symbol_ S_simple_vector;
  2071.   symbol_ S_simple_string;
  2072.   symbol_ S_bit_vector;
  2073.   symbol_ S_simple_bit_vector;
  2074.   symbol_ S_array;
  2075.   symbol_ S_simple_array;
  2076.   symbol_ S_sequence;
  2077.   symbol_ S_cerror;
  2078.   symbol_ S_Kinternal;
  2079.   symbol_ S_Kexternal;
  2080.   symbol_ S_Kinherited;
  2081.   symbol_ S_do_symbols;
  2082.   symbol_ S_do_external_symbols;
  2083.   symbol_ S_packagestern;
  2084.   symbol_ S_internal_time_units_per_second;
  2085.   symbol_ S_encode_universal_time;
  2086.   symbol_ S_use_clcs;
  2087.   symbol_ S_recursive_error_count;
  2088.   symbol_ S_error_handler;
  2089.   symbol_ S_simple_condition;
  2090.   symbol_ S_simple_serious_condition;
  2091.   symbol_ S_simple_error;
  2092.   symbol_ S_simple_program_error;
  2093.   symbol_ S_simple_control_error;
  2094.   symbol_ S_simple_arithmetic_error;
  2095.   symbol_ S_simple_division_by_zero;
  2096.   symbol_ S_simple_floating_point_overflow;
  2097.   symbol_ S_simple_floating_point_underflow;
  2098.   symbol_ S_simple_cell_error;
  2099.   symbol_ S_simple_unbound_variable;
  2100.   symbol_ S_simple_undefined_function;
  2101.   symbol_ S_simple_type_error;
  2102.   symbol_ S_simple_package_error;
  2103.   symbol_ S_simple_print_not_readable;
  2104.   symbol_ S_simple_stream_error;
  2105.   symbol_ S_simple_end_of_file;
  2106.   symbol_ S_simple_file_error;
  2107.   symbol_ S_simple_storage_condition;
  2108.   symbol_ S_simple_warning;
  2109.   symbol_ S_Kdatum;
  2110.   symbol_ S_Kexpected_type;
  2111.   symbol_ S_Kpackage;
  2112.   symbol_ S_Kobject;
  2113.   symbol_ S_Kpathname;
  2114.   symbol_ S_format;
  2115.   symbol_ S_debugger_hook;
  2116.   symbol_ S_coerce_to_condition;
  2117.   symbol_ S_break_on_signals;
  2118.   symbol_ S_safe_typep;
  2119.   symbol_ S_completion;
  2120.   symbol_ S_keyboard_input;
  2121.   symbol_ S_terminal_io;
  2122.   symbol_ S_key_bindings;
  2123.   symbol_ S_query_io;
  2124.   symbol_ S_debug_io;
  2125.   symbol_ S_standard_input;
  2126.   symbol_ S_standard_output;
  2127.   symbol_ S_error_output;
  2128.   symbol_ S_trace_output;
  2129.   symbol_ S_generic_stream_rdch;
  2130.   symbol_ S_generic_stream_listen;
  2131.   symbol_ S_generic_stream_clear_input;
  2132.   symbol_ S_generic_stream_wrch;
  2133.   symbol_ S_generic_stream_wrss;
  2134.   symbol_ S_generic_stream_finish_output;
  2135.   symbol_ S_generic_stream_force_output;
  2136.   symbol_ S_generic_stream_clear_output;
  2137.   symbol_ S_generic_stream_rdby;
  2138.   symbol_ S_generic_stream_wrby;
  2139.   symbol_ S_generic_stream_close;
  2140.   symbol_ S_default_pathname_defaults;
  2141.   symbol_ S_logpathname_translations;
  2142.   symbol_ S_Kwild;
  2143.   symbol_ S_Kwild_inferiors;
  2144.   symbol_ S_Krelative;
  2145.   symbol_ S_Kabsolute;
  2146.   symbol_ S_Knewest;
  2147.   symbol_ S_Kcommon;
  2148.   symbol_ S_Kinput;
  2149.   symbol_ S_Kinput_immutable;
  2150.   symbol_ S_Koutput;
  2151.   symbol_ S_Kio;
  2152.   symbol_ S_Kprobe;
  2153.   symbol_ S_unsigned_byte;
  2154.   symbol_ S_signed_byte;
  2155.   symbol_ S_Kdefault;
  2156.   symbol_ S_Kerror;
  2157.   symbol_ S_Knew_version;
  2158.   symbol_ S_Krename;
  2159.   symbol_ S_Krename_and_delete;
  2160.   symbol_ S_Koverwrite;
  2161.   symbol_ S_Kappend;
  2162.   symbol_ S_Ksupersede;
  2163.   symbol_ S_Kcreate;
  2164.   symbol_ S_warn;
  2165.   symbol_ S_with_output_to_string;
  2166.   symbol_ S_integer;
  2167.   symbol_ S_hash_table;
  2168.   symbol_ S_random_state;
  2169.   symbol_ S_read_base;
  2170.   symbol_ S_read_suppress;
  2171.   symbol_ S_readtablestern;
  2172.   symbol_ S_features;
  2173.   symbol_ S_read_preserve_whitespace;
  2174.   symbol_ S_read_line_number;
  2175.   symbol_ S_read_recursive_p;
  2176.   symbol_ S_read_reference_table;
  2177.   symbol_ S_backquote_level;
  2178.   symbol_ S_backquote_reader;
  2179.   symbol_ S_comma_reader;
  2180.   symbol_ S_compiling;
  2181.   symbol_ S_make_byte;
  2182.   symbol_ S_Kupcase;
  2183.   symbol_ S_Kdowncase;
  2184.   symbol_ S_Kcapitalize;
  2185.   symbol_ S_print_case;
  2186.   symbol_ S_print_level;
  2187.   symbol_ S_print_length;
  2188.   symbol_ S_print_gensym;
  2189.   symbol_ S_print_escape;
  2190.   symbol_ S_print_radix;
  2191.   symbol_ S_print_base;
  2192.   symbol_ S_print_array;
  2193.   symbol_ S_print_circle;
  2194.   symbol_ S_print_pretty;
  2195.   symbol_ S_print_closure;
  2196.   symbol_ S_print_readably;
  2197.   symbol_ S_print_rpars;
  2198.   symbol_ S_print_indent_lists;
  2199.   symbol_ S_print_circle_table;
  2200.   symbol_ S_prin_level;
  2201.   symbol_ S_prin_bqlevel;
  2202.   symbol_ S_prin_stream;
  2203.   symbol_ S_prin_linelength;
  2204.   symbol_ S_prin_l1;
  2205.   symbol_ S_prin_lm;
  2206.   symbol_ S_prin_rpar;
  2207.   symbol_ S_prin_jblocks;
  2208.   symbol_ S_prin_jbstrings;
  2209.   symbol_ S_prin_jbmodus;
  2210.   symbol_ S_prin_jblpos;
  2211.   symbol_ S_backquote;
  2212.   symbol_ S_splice;
  2213.   symbol_ S_nsplice;
  2214.   symbol_ S_unquote;
  2215.   symbol_ S_structure_print;
  2216.   symbol_ S_defstruct_description;
  2217.   symbol_ S_print_object;
  2218.   symbol_ S_trace_values;
  2219.   symbol_ S_setf_function;
  2220.   symbol_ S_lambda;
  2221.   symbol_ S_LLoptional;
  2222.   symbol_ S_LLkey;
  2223.   symbol_ S_LLallow_other_keys;
  2224.   symbol_ S_LLrest;
  2225.   symbol_ S_LLaux;
  2226.   symbol_ S_macro;
  2227.   symbol_ S_special;
  2228.   symbol_ S_source;
  2229.   symbol_ S_optimize;
  2230.   symbol_ S_declaration;
  2231.   symbol_ S_compile_lambda;
  2232.   symbol_ S_expand_lambdabody_main;
  2233.   symbol_ S_compile;
  2234.   symbol_ S_evalhookstern;
  2235.   symbol_ S_applyhookstern;
  2236.   symbol_ S_macroexpand_hook;
  2237.   symbol_ S_lambda_parameters_limit;
  2238.   symbol_ S_call_arguments_limit;
  2239.   symbol_ S_multiple_values_limit;
  2240.   symbol_ S_jmpbuf_size;
  2241.   symbol_ S_big_endian;
  2242.   symbol_ S_Klambda;
  2243.   symbol_ S_keyword;
  2244.   symbol_ S_plus2;
  2245.   symbol_ S_plus3;
  2246.   symbol_ S_mal2;
  2247.   symbol_ S_mal3;
  2248.   symbol_ S_durch2;
  2249.   symbol_ S_durch3;
  2250.   symbol_ S_driverstern;
  2251.   symbol_ S_break_driver;
  2252.   symbol_ S_break_count;
  2253.   symbol_ S_recurse_count_standard_output;
  2254.   symbol_ S_frame_limit1;
  2255.   symbol_ S_frame_limit2;
  2256.   symbol_ S_setf;
  2257.   symbol_ S_psetf;
  2258.   symbol_ S_multiple_value_setf;
  2259.   symbol_ S_make_macro_expandercons;
  2260.   symbol_ S_pthe;
  2261.   symbol_ S_compile_form;
  2262.   symbol_ S_inline;
  2263.   symbol_ S_notinline;
  2264.   symbol_ S_get_funname_symbol;
  2265.   symbol_ S_inlinable;
  2266.   symbol_ S_symbol;
  2267.   symbol_ S_address;
  2268.   symbol_ S_file_stream;
  2269.   symbol_ S_synonym_stream;
  2270.   symbol_ S_broadcast_stream;
  2271.   symbol_ S_concatenated_stream;
  2272.   symbol_ S_two_way_stream;
  2273.   symbol_ S_echo_stream;
  2274.   symbol_ S_string_stream;
  2275.   symbol_ S_stream;
  2276.   symbol_ S_package;
  2277.   symbol_ S_readtable;
  2278.   symbol_ S_load_time_eval;
  2279.   symbol_ S_symbol_macro;
  2280.   symbol_ S_foreign_pointer;
  2281.   symbol_ S_foreign_address;
  2282.   symbol_ S_foreign_variable;
  2283.   symbol_ S_foreign_function;
  2284.   symbol_ S_finalizer;
  2285.   symbol_ S_compiled_function;
  2286.   symbol_ S_frame_pointer;
  2287.   symbol_ S_read_label;
  2288.   symbol_ S_system_internal;
  2289.   symbol_ S_fixnum;
  2290.   symbol_ S_bignum;
  2291.   symbol_ S_ratio;
  2292.   symbol_ S_short_float;
  2293.   symbol_ S_single_float;
  2294.   symbol_ S_double_float;
  2295.   symbol_ S_long_float;
  2296.   symbol_ S_standard_generic_function;
  2297.   symbol_ S_closclass;
  2298.   symbol_ S_typep;
  2299.   symbol_ S_deftype_expander;
  2300.   symbol_ S_traced_definition;
  2301.   symbol_ S_gensym_counter;
  2302.   symbol_ S_inhibit_floating_point_underflow;
  2303.   symbol_ S_pi;
  2304.   symbol_ S_number;
  2305.   symbol_ S_real;
  2306.   symbol_ S_most_positive_fixnum;
  2307.   symbol_ S_most_negative_fixnum;
  2308.   symbol_ S_most_positive_short_float;
  2309.   symbol_ S_least_positive_short_float;
  2310.   symbol_ S_least_negative_short_float;
  2311.   symbol_ S_most_negative_short_float;
  2312.   symbol_ S_most_positive_single_float;
  2313.   symbol_ S_least_positive_single_float;
  2314.   symbol_ S_least_negative_single_float;
  2315.   symbol_ S_most_negative_single_float;
  2316.   symbol_ S_most_positive_double_float;
  2317.   symbol_ S_least_positive_double_float;
  2318.   symbol_ S_least_negative_double_float;
  2319.   symbol_ S_most_negative_double_float;
  2320.   symbol_ S_most_positive_long_float;
  2321.   symbol_ S_least_positive_long_float;
  2322.   symbol_ S_least_negative_long_float;
  2323.   symbol_ S_most_negative_long_float;
  2324.   symbol_ S_short_float_epsilon;
  2325.   symbol_ S_single_float_epsilon;
  2326.   symbol_ S_double_float_epsilon;
  2327.   symbol_ S_long_float_epsilon;
  2328.   symbol_ S_short_float_negative_epsilon;
  2329.   symbol_ S_single_float_negative_epsilon;
  2330.   symbol_ S_double_float_negative_epsilon;
  2331.   symbol_ S_long_float_negative_epsilon;
  2332.   symbol_ S_default_float_format;
  2333.   symbol_ S_read_default_float_format;
  2334.   symbol_ S_write_float;
  2335.   symbol_ S_random_state_stern;
  2336.   symbol_ S_init_hooks;
  2337.   symbol_ S_quiet;
  2338.   symbol_ S_Klisting;
  2339.   symbol_ S_Koutput_file;
  2340.   symbol_ S_compile_file;
  2341.   symbol_ S_batchmode_errors;
  2342.   symbol_ S_boolean;
  2343.   symbol_ S_uchar;
  2344.   symbol_ S_short;
  2345.   symbol_ S_ushort;
  2346.   symbol_ S_int;
  2347.   symbol_ S_uint;
  2348.   symbol_ S_long;
  2349.   symbol_ S_ulong;
  2350.   symbol_ S_uint8;
  2351.   symbol_ S_sint8;
  2352.   symbol_ S_uint16;
  2353.   symbol_ S_sint16;
  2354.   symbol_ S_uint32;
  2355.   symbol_ S_sint32;
  2356.   symbol_ S_uint64;
  2357.   symbol_ S_sint64;
  2358.   symbol_ S_c_pointer;
  2359.   symbol_ S_c_string;
  2360.   symbol_ S_c_struct;
  2361.   symbol_ S_c_union;
  2362.   symbol_ S_c_array;
  2363.   symbol_ S_c_array_max;
  2364.   symbol_ S_c_function;
  2365.   symbol_ S_c_ptr;
  2366.   symbol_ S_c_ptr_null;
  2367.   symbol_ S_c_array_ptr;
  2368.   symbol_ S_fv_flag_readonly;
  2369.   symbol_ S_fv_flag_malloc_free;
  2370.   symbol_ S_ff_flag_alloca;
  2371.   symbol_ S_ff_flag_malloc_free;
  2372.   symbol_ S_ff_flag_out;
  2373.   symbol_ S_ff_flag_in_out;
  2374.   symbol_ S_ff_language_asm;
  2375.   symbol_ S_ff_language_c;
  2376.   symbol_ S_ff_language_ansi_c;
  2377.   symbol_ S_foreign_call_in;
  2378. } symbol_tab_data;
  2379. #define S(name)  S_help_(S_##name)
  2380. #define symbol_tab_addr ((struct symbol_tab_ *)type_zero_oint(128))
  2381. #define S_help_(name)  (as_object((oint)(&symbol_tab_addr->name)))
  2382. #define NIL  S(nil)
  2383. #define T    S(t)
  2384. extern struct object_tab_ object_tab;
  2385. extern uintC module_count;
  2386. typedef struct { char* packname; char* symname; } subr_initdata;
  2387. typedef struct { char* initstring; } object_initdata;
  2388. typedef struct module_ { char* name; subr_* stab; uintC* stab_size; object* otab; uintC* otab_size; boolean initialized; subr_initdata* stab_initdata; object_initdata* otab_initdata; void (*initfunction1) _ARGS((struct module_ *)); void (*initfunction2) _ARGS((struct module_ *)); } module_;
  2389. extern module_ modules[];
  2390. #define STACK_(n)  (STACK[-1-(sintP)(n)])
  2391. #define skipSTACKop  -=
  2392. #define pushSTACK(obj)  (STACK_(-1) = (obj), STACK skipSTACKop -1)
  2393. #define popSTACK()  (STACK skipSTACKop 1, STACK_(-1))
  2394. extern uintC mv_count;
  2395. extern object mv_space [127];
  2396. #define value1  mv_space[0]
  2397. extern object subr_self;
  2398. extern Values funcall _ARGS((object fun, uintC argcount));
  2399. #define LISPFUNN(name,req_anz)  LISPFUN(name,req_anz,0,norest,nokey,0,NIL)
  2400. #define LISPFUN_B(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  global Values C_##name subr_##rest_flag##_function_args
  2401. #define subr_norest_function_args  (void)
  2402. #define subr_rest_function_args  (uintC argcount, object* rest_args_pointer)
  2403. #define LISPFUN_F(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  { (lisp_function)(&C_##name), 0, 0, 0, req_anz, opt_anz, (uintB)subr_##rest_flag, (uintB)subr_##key_flag, key_anz, },
  2404. #define LISPFUN  LISPFUN_B
  2405. #define check_string_char(obj)  if (!string_char_p(obj)) { fehler_string_char(obj); }
  2406. #define check_uint8(obj)  if (!uint8_p(obj)) { fehler_uint8(obj); }
  2407. #define check_sint8(obj)  if (!sint8_p(obj)) { fehler_sint8(obj); }
  2408. #define check_uint16(obj)  if (!uint16_p(obj)) { fehler_uint16(obj); }
  2409. #define check_sint16(obj)  if (!sint16_p(obj)) { fehler_sint16(obj); }
  2410. #define check_uint32(obj)  if (!uint32_p(obj)) { fehler_uint32(obj); }
  2411. #define check_sint32(obj)  if (!sint32_p(obj)) { fehler_sint32(obj); }
  2412. #define check_uint64(obj)  if (!uint64_p(obj)) { fehler_uint64(obj); }
  2413. #define check_sint64(obj)  if (!sint64_p(obj)) { fehler_sint64(obj); }
  2414. #define check_uint(obj)  if (!uint_p(obj)) { fehler_uint(obj); }
  2415. #define check_sint(obj)  if (!sint_p(obj)) { fehler_sint(obj); }
  2416. #define check_ulong(obj)  if (!ulong_p(obj)) { fehler_ulong(obj); }
  2417. #define check_slong(obj)  if (!slong_p(obj)) { fehler_slong(obj); }
  2418. #define check_ffloat(obj)  if (!single_float_p(obj)) { fehler_ffloat(obj); }
  2419. #define check_dfloat(obj)  if (!double_float_p(obj)) { fehler_dfloat(obj); }
  2420. nonreturning_function(extern, fehler_uint8, (object obj));
  2421. nonreturning_function(extern, fehler_sint8, (object obj));
  2422. nonreturning_function(extern, fehler_uint16, (object obj));
  2423. nonreturning_function(extern, fehler_sint16, (object obj));
  2424. nonreturning_function(extern, fehler_uint32, (object obj));
  2425. nonreturning_function(extern, fehler_sint32, (object obj));
  2426. nonreturning_function(extern, fehler_uint64, (object obj));
  2427. nonreturning_function(extern, fehler_sint64, (object obj));
  2428. nonreturning_function(extern, fehler_uint, (object obj));
  2429. nonreturning_function(extern, fehler_sint, (object obj));
  2430. nonreturning_function(extern, fehler_ulong, (object obj));
  2431. nonreturning_function(extern, fehler_slong, (object obj));
  2432. nonreturning_function(extern, fehler_sfloat, (object obj));
  2433. nonreturning_function(extern, fehler_dfloat, (object obj));
  2434. extern object L_to_I _ARGS((sint32 wert));
  2435. extern object UL_to_I _ARGS((uintL wert));
  2436. extern object L2_to_I _ARGS((sint32 wert_hi, uint32 wert_lo));
  2437. extern object UL2_to_I _ARGS((uint32 wert_hi, uint32 wert_lo));
  2438. #define uint8_to_I(val)  fixnum((uint8)(val))
  2439. #define sint8_to_I(val)  L_to_I((sint32)(sint8)(val))
  2440. #define uint16_to_I(val)  fixnum((uint16)(val))
  2441. #define sint16_to_I(val)  L_to_I((sint32)(sint16)(val))
  2442. #define uint32_to_I(val)  UL_to_I((uint32)(val))
  2443. #define sint32_to_I(val)  L_to_I((sint32)(val))
  2444. #define uint64_to_I(val)  UL2_to_I((uint32)((val)>>32),(uint32)(val))
  2445. #define sint64_to_I(val)  L2_to_I((sint32)((val)>>32),(uint32)(val))
  2446. #define uint_to_I(val)  uint32_to_I(val)
  2447. #define sint_to_I(val)  sint32_to_I(val)
  2448. #define ulong_to_I(val)  uint32_to_I(val)
  2449. #define slong_to_I(val)  sint32_to_I(val)
  2450. extern uintL I_to_UL _ARGS((object obj));
  2451. extern sintL I_to_L _ARGS((object obj));
  2452. extern uint64 I_to_UQ _ARGS((object obj));
  2453. extern sint64 I_to_Q _ARGS((object obj));
  2454. #define I_to_uint8(obj)  (uint8)(as_oint(obj) >> 0)
  2455. #define I_to_sint8(obj)  (sint8)(as_oint(obj) >> 0)
  2456. #define I_to_uint16(obj)  (uint16)(as_oint(obj) >> 0)
  2457. #define I_to_sint16(obj)  (sint16)(as_oint(obj) >> 0)
  2458. #define I_to_uint32(obj)  I_to_UL(obj)
  2459. #define I_to_sint32(obj)  I_to_L(obj)
  2460. #define I_to_uint64(obj)  I_to_UQ(obj)
  2461. #define I_to_sint64(obj)  I_to_Q(obj)
  2462. #define I_to_uint  I_to_uint32
  2463. #define I_to_sint  I_to_sint32
  2464. #define I_to_ulong  I_to_uint32
  2465. #define I_to_slong  I_to_sint32
  2466. extern object c_float_to_FF _ARGS((ffloatjanus* val_));
  2467. extern void FF_to_c_float _ARGS((object obj, ffloatjanus* val_));
  2468. extern object c_double_to_DF _ARGS((dfloatjanus* val_));
  2469. extern void DF_to_c_double _ARGS((object obj, dfloatjanus* val_));
  2470. extern void register_foreign_variable _ARGS((void* address, const char * name, uintBWL flags, uintL size));
  2471. extern void register_foreign_function _ARGS((void* address, const char * name, uintWL flags));
  2472. extern object convert_from_foreign _ARGS((object fvd, void* data));
  2473. extern void convert_to_foreign_mallocing _ARGS((object fvd, object obj, void* data));
  2474. extern void convert_to_foreign_nomalloc _ARGS((object fvd, object obj, void* data));
  2475. #endif /* _CLISP_H */
  2476.